Procedimientos para separar cadenas

[Wonni]

Holas, esta aqui ixMike conmigo y dice que aqui teneis el codigo:

Código Delphi [-]
Function ContarPalabras(Texto: String; Separador: Char): Integer;
var i: Integer;
begin
Result:=0;
If Length(Texto)=0 then Exit else
 for i:=1 to Length(Texto) do if Texto[i]=Separador then Inc(Result);
Inc(Result);
end;
 
Function ObtienePalabra(Texto: String; Separador: Char; Indice: Integer): String;
var
  c, n, p: Integer;
  Resto: String;
begin
If Pos(Separador,Texto)=0 then Result:=Texto else
  begin
  c:=1;
  for n:=1 to Length(Texto)do
   if Texto[n]=Separador then
     begin
     if Indice=1 then
       begin
       Result:=Copy(Texto,1,n-1);
       Exit;
       end;
     Inc(c);
     p:=n+1;
     Resto:=Copy(Texto,p,Length(Texto)-p+1);
     If c=Indice then
       begin
       If Pos(Separador,Resto)>0 then
        Result:=Copy(Texto,p,Pos(Separador,Resto)-1)else Result:=Resto;
       Exit;
       end;
     end;
  end;
end;

y dice: "que aproveche !!"

Saludos !!

[MAXIUM]

Para Delphi 7 que no cuenta con la propiedad StrictDelimiter

El truco está en reemplazar el espacio por un carácter que se esté seguro que no se va a usar y luego hacer el proceso inverso.

Código Delphi [-]
Var
   SubFrase: TStringList;
begin
     SubFrase:= TStringList.Create;

     SubFrase.Text:= 'hola, soy pepe perez perea, no tengo pereza, por eso uso delphi';
     SubFrase.Delimiter:= ',';
     SubFrase.DelimitedText:=  StringReplace(SubFrase.Text, ' ', '·', [rfReplaceAll]);

     ShowMessage(StringReplace(SubFrase.Strings[0], '·', ' ', [rfReplaceAll]));
     ShowMessage(StringReplace(SubFrase.Strings[1], '·', ' ', [rfReplaceAll]));
     ShowMessage(StringReplace(SubFrase.Strings[2], '·', ' ', [rfReplaceAll]));
     ShowMessage(StringReplace(SubFrase.Strings[3], '·', ' ', [rfReplaceAll]));
     
     FreeAndNil(SubFrase);
end;

[[Al González]]

Para enriquecer el tema, hoy ya se puede usar el método implícito Split (realmente contenido en el ayudante TStringHelper):
http://docwiki.embarcadero.com/Libra...ngHelper.Split

Un abrazo por separado.

Al González.