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:
Cita:
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
