Alguna funcion como la Strtok

[h2o_mx]

que tal amigos, necesito saber si en delphi existe una
funcion como en "c" que es la strtok que separa en tokens
las palabras de una cadena.

tengo esta cadena "001 DESCRIPCION 12.21",
quiero ir guardando cada token en una variable diferente
quedando mas o menos asi
va1 = "001"
va2 = "DESCRIPCION"
va3 = "12.21"

espero alguien me pueda ayudar, gracias de antemano.

Saludos.

[[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.

[[seoane]]

¿y por que no usar un simple TStringList?

Código Delphi [-]
  with TStringList.Create do
  try
    QuoteChar := '"';
    Delimiter := #32;
    DelimitedText:= Str; // Str es la cadena de exto
    // Ahora tienes separado el texto en lineas
    Var1:= Strings[0];
    Var2:= Strings[1];
    Var3:= Strings[2];
  finally
    Free;
  end;
end;

Por cierto, no encuentro la clase TParser ¿en que unit esta?

[[Crandel]]

Empezado por seoane

¿y por que no usar un simple TStringList?

Se puede usar perfectamente, pero el resultado es diferente.

Si la idea es tener un solo delimitador (en este caso espacio en blanco) sumado al QuoteChar, el metodo que escribiste con TStringList es perfecto.

Si queres separar las palabras que esten formadas solo las letras y guiones bajos, entonces es mejor el método con TParser.

Dependerá de la aplicación.

Empezado por seoane

Por cierto, no encuentro la clase TParser ¿en que unit esta?

en la Unit Classes.

[[Lepe]]

Al menos en BDS 2006 está en win32\rtl\common\classes.pas en la línea 1099 según Grep Search jejeje.

Los que no tienen BDS, a pelo

En DUnit tambien para BDS viene una unidad xpLex, el comentario dice (para roman):

Unit : xpLex

Description : provides a lexical analyzer with which the xpParser can
rely on to provide tokens from a source stream. This code
has a very strong resemblance the TPARSER class found in
delphi's classes unit. However, when I was just about done and
ready to release, I discovered that Tparser cannot deal with text
inside a comment and would get tripped up trying to parse:
{ this is delphi's fault }.

Programmer : mike

Date : 05-Aug-2000

Saludos

[[seoane]]

Pues no conocía esta clase (TParser), y parece muy interesante.