In NLDCsvStringUtilsU.pas staat een Export Rows. De NULL controle was daar niet helemaal goed.
Code:
procedure ExportRows;
var
i: Integer;
FieldValue: string;
RowValue: string;
begin
with DataSet do
while not Eof do
begin
RowValue := '';
for i := 0 to Fields.Count -1 do
begin
with Fields[i] do
if not IsNull then
begin
if DataType in [ftString, ftMemo] then
FieldValue := '"' + Value + '"'
else
FieldValue := Fields[i].Value;
end
else
begin
if DataType in [ftString, ftMemo] then
FieldValue := '""';
else
FieldValue := '';
end;
RowValue := RowValue + FieldValue + FSeperator;
end;
System.Writeln(FTextFile, RowValue);
Next;
end;
end;
Volgens mij was dit de oplossing
Bookmarks