Alguna funcion como la Strtok

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

[h2o_mx]

que tal amigos, perdon por tardar en mi respuesta, les
agradezco mucho, me ha ido de maravilla con lo que me
recomendaron, muy util todo, gracias y Saludos.