LoadFromFile

[nahpets]

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.