TStringList y Separador

[ecfisa]

Hola.

¿ Probaste la sugerencia que hace gerardus (mensaje #4) en el enlace que te indicó Casimiro ? te tiene que funcionar perfectamente.

Un ejemplo con los datos de tu mensaje:

Código Delphi [-]
...
var
  s : string;
begin
  s := 'Nro;Tipo Doc;Tipo Compra;RUT Proveedor;Razon Social;Folio;Fecha Docto'+
       '1;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290322;31/07/2018;31/07/2018 16:04:39;01/08/2018 14:59:03'+
       '2;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290324;31/07/2018;31/07/2018 16:07:42;01/08/2018 15:00:31'+
       '3;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290335;31/07/2018;31/07/2018 16:23:38;01/08/2018 15:00:31'+
       '4;33;Del Giro;79898540-K;TURISMO LATRACH LIMITADA;40749;30/07/2018;31/07/2018 16:23:32;01/08/2018 15:00:31'+
       '5;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290339;31/07/2018;31/07/2018 16:29:44;01/08/2018 14:59:04';
  ExtractStrings([';'], [], PChar(s), ListBox1.Items);
end;

Saludos