PS:
Auch wenn hier schon einiges gesagt wurdem bezüglich sinnlosen/doppelten Aufrufen.
Delphi-Quellcode:
AssignFile(f, 'R_Lager.txt');
Rewrite(f);
try
for i := 1 to 1200 do
begin
...
Writeln(f, RecordString);
end;
finally
CloseFile(f);
end;
Man kann aber auch alles in eine StringListe schreiben und dann alles gemeinsam Speichern.
Und selbst die einzelnen Werte/Spalten kann man über eine weitere StringListe übersichtlicher behandeln.
Delphi-Quellcode:
SL := TStringList.Create;
SL.Delimiter := Trenner;
SL.StrictDelimiter := True;
...
SL.Clear;
SL.Add(IntToStr(Lager[i].SchrankNr));
SL.Add(IntToStr(Lager[i].AusschubNr));
...
DieGanzeZeile := SL.DelimitedText; // GroßeSL.Add(SL.DelimitedText);