Cita:
Empezado por seoane
Solo una aclaración no es delimitertext es delimitedtext  |
Yo me he copiado directamente lo que tenía el amigo tcp
, la verdad no me he dado cuenta de ese detallito.
Cita:
Empezado por seoane
PD: Si el texto contiene espacios o tabulaciones el TStringList no funcionara, al menos en algunas versiones de delphi que no tienen la propiedad StrictDelimiter
|
En ese caso entonces podríamos utilizar la función ExtractStrings y le indicamos que ignore el espacio y el tabulador en el parseo de la cadena.
Código Delphi
[-]
var
cadena : String;
i : Integer;
sl : TStringList;
begin
sl := TStringList.Create;
ExtractStrings(['#'], [#32,#9], PCHAR(cadena), sl);
for i:=0 to sl.Count-1 do
showmessage(sl[i]);
Saluditos