Zum Testen mal statt Trenner -> Trenner + sLineBreak schreiben, wahrscheinlich stimmt was mit dem letzten zu schreibenden Stríng nicht und etwas Ordnung würde auch nicht schaden
Delphi-Quellcode:
procedure SaveToFile;
var
F: TextFile;
I: integer;
begin
AssignFile(F, ExtractFilePath(ParamStr(0)) + 'R_Lager.txt');
{$I-} Rewrite(F); {$I+};
if IoResult = 0 then
begin
try
for I := Low(Lager) to High(Lager) do
Writeln(F, GetCsvRecordString(I));
finally
CloseFile(f);
end;
end;
end;