dividir cadena en trozos mas pequeños

[[nlsgarcia]]

n03l,

Empezado por n03l

estoy tratando de hacer un procedimiento que permita partir un string en varios trozos, el problema que tengo es que no quiero que me parta las palabras.

Revisa este código:

Código Delphi [-]
procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   StrList: TStringList;
   i : Integer;
begin
   StrList := TStringList.Create;
   try
      Split(' ', 'Hola Test Mundo', StrList) ;
      for i := 0 to StrList.Count-1 do
         ShowMessage(StrList[i]);
   finally
      StrList.Free;
   end;
end;

El código anterior divide un string por palabras tomando como separador el carácter ' ', luego se puede procesar como se requiera, en el ejemplo se hace un ShowMessage de cada palabra.

Espero sea útil

Nelson.