Vielen Dank an alle, das Problem ist gelöst!
Ich habe die Schleife entsprechend eurer Hinweise vereinfacht und statt dem dauernden
append ein einfaches
writln gelassen.
Somit sieht das ganze nun schreibtechnisch so aus:
Delphi-Quellcode:
if i = 1 then
begin
Rewrite(f);
Writeln(f, RecordString);
end
else
begin
Writeln(f, RecordString);
end;
Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber keint Problem, hauptsache am Ende passt alles und das tut es.
Also Danke nochmal!