Alguna funcion como la Strtok

[[Crandel]]

No existe ninguna que realice algo similar, pero basandome en el link que nos enseño federico en este hilo, donde usa la clase TParser, podemos construir algo asi:

Código Delphi [-]
function StrTok(str: string): TStrings;
var
  words: TStrings;
  MemStream: TStringStream;
  Parser: TParser;
begin
  words := TStringList.Create;
  MemStream := TStringStream.Create(str);
  MemStream.Position := 0;
  Parser := TParser.Create(MemStream);

  words.Add(Parser.TokenString);
  while not (Parser.NextToken = toEof) do
    words.Add(Parser.TokenString);

  Parser.Free;
  MemStream.Free;
  Result := words;
end;

y lo usamos asi:

Código Delphi [-]
var
  words: TStrings;
begin
  words := Strtok(Edit1.Text);
  Memo1.Lines := words;
  words.Free;
end;

donde Edit1 contiene la cadena y en Memo1 mostramos los resultados, cada palabra es una linea del Memo.