also bei mir sieht ne speichern procedure so aus
Delphi-Quellcode:
procedure save;
var
f : FILE OF meinrecord;
dateiname : STRING;
rec: meinrecord
begin
ASSIGN(f,dateiname); {Dateiname initialisieren}
REWRITE(f); {Datei falls vorhanden überschreiben}
WRITE(f,rec); {Record schreiben}
CLOSE(f); {Datei schließen}
end;