Hallo MrMyagi,
Dir ist aber bewusst, dass Du mit Rewrite die vorhandene Datei löschst und eine neue Datei anlegst? Wenn Du eine vorhandene Datei ändern willst ist die Function Append angebracht.
Empfehlenswert ist auch der E/A – Prüfung durchzuführen.
Etwa so:
Delphi-Quellcode:
AssignFile (Datei, ‘C:\Datei.txt');
{$I-}
Rewrite (Datei);
{$I+}
If IOResult = 0 then // Alles O.K.
Bis bald Chemiker