record abspeichern und wieder laden

[yankee]

hmm, ok, ich habe den qt abgeändert:

Delphi-Quellcode:

procedure TMainForm.SaveToFile(const FileName: TFileName);
var datei: TFileStream;
    i,len: integer;
begin
    len :=length(Planeten);
    datei :=TFileStream.Create(FileName, fmCreate);
    datei.Write(len, sizeof(len));
    for i :=0 to len-1 do datei.Write(Planeten[i], sizeof(Planeten[i]));
    datei.Free;
end;

procedure TMainForm.LoadFromFile(const FileName: TFileName);
var len,i:integer;
    datei: TFileStream;
begin
    datei :=TFileStream.Create(FileName, fmOpenRead);
    datei.Read(len, sizeof(len));
    for i :=0 to len-1 do datei.Read(Planeten[i], sizeof(Planeten[i]));
    datei.Free;
end;

Aber es funzt immernoch nicht. Die erstellte datei ist jetzt 488Bytes groß, aber beim klick auf Laden verändert sich nichts.