Hallo,
ergänze bitte mal die Speichermethode um:
Delphi-Quellcode:
AssignFile(MyFile, FileName);
try
try // Einen zusätzlichen Try-Except-Block, damit wir Fehler abfangen können.
Reset(MyFile);
// Wie groß ist die Datei?
// Hier wird angegeben, wieviele Sätze vom Typ TFahrzeugdaten in der Datei sind.
// Hier wird nicht angegeben, wie groß die Datei in Byte ist!!!
ShowMessage(inttostr(FileSize(MyFile)));
except
on e :
Exception do ShowMessage(e.
Message);
end;
finally
CloseFile(Datei);
end;
end;
Kommt da eine
Exception oder ist FileSize = 0? FileSize müsste eigentlich Count sein, ist dem nicht so, dann passt das Schreiben in die Datei irgendwie nicht zum Typ TFahrzeugdaten.
Wenn möglich, zeig' uns mal die Definition von TFahrzeugdaten und den Inhalt der von Dir geschriebenen Datei, eventuell können wir ja daran was erkennen.