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.