TStringList y Separador

[mjjj]

Me funcionó la solución presentada, pero con un problema, cuando el archivo tiene un campo "vacio" no lo considera, es decir 2 ; seguidos.
Por ejemplo...

756;61;Del Giro;76417179-9;PROVEEDOR DE COMPRA;12;24/08/2018;24/08/2018 11:11:17;;1000000;0;0;;;1000000;;;;;0;;;;0;;;;

Alguna idea ???

[ecfisa]

Hola de nuevo.

Bueno, todo depende de lo que desees que aparezca cuando se encuentre un campo vacio ...

Por ejemplo si quiero que cuando encuentre un campo vacío aparezca el símbolo "~" haría:

Código Delphi [-]
...
var
  s : string;
begin
  s := '756;61;Del Giro;76417179-9;PROVEEDOR DE COMPRA;12;24/08/2018;'+
       '24/08/2018 11:11:17;;1000000;0;0;;;1000000;;;;;0;;;;0;;;;';

  s := StringReplace(s,';;',';~;', [rfReplaceAll]);

  ExtractStrings([';'], [], PChar(s), Memo1.Lines);
end;

Lo que me daría el siguiente resultado:

756
61
Del Giro
76417179-9
PROVEEDOR DE COMPRA
12
24/08/2018
24/08/2018 11:11:17
~
1000000
0
0
~
1000000
~
~
0
~
~
0
~
~

Saludos