Stringlängenbegrenzung bei 'Writeln'

[Bjoerk]

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;