Stringlängenbegrenzung bei 'Writeln'

[Sir Rufo]

Ab dem zweiten Durchgang wird die bereits geöffnete Datei wieder zum Anfügen geöffnet.

Delphi-Quellcode:

   AssignFile( f, 'R_Lager.txt' );

   for i := 1 to 1200 do
   begin

     // RecordString zusammenbauen

     if i = 1 then // wenn erste Zeile geschrieben wird Datei neu schrieben
       Rewrite(f);
     Writeln(f, RecordString);
   end;

   CloseFile( f );

EDIT

Du solltest dir aber mal überlegen, ob eine CSVBuilder-Klasse nicht wesentlich geschickter wäre, denn den Code auf Fehler zu überprüfen ist Strafarbeit

Ausserdem besteht hier die Möglichkeit eine nicht konforme CSV-Datei zu erstellen