record abspeichern und wieder laden

[yankee]

Noch ein paar Bugs gefixt. Aktueller stand:

Delphi-Quellcode:

procedure TMainForm.SaveToFile(const FileName: TFileName);
var datei: TFileStream;
    i,len: integer;
begin
    len :=length(Planeten); //Länge des arrays
    datei :=TFileStream.Create(FileName, fmCreate); //datei "öffnen"
    datei.Write(len, sizeof(len));                  //Länge des array abspeichern
    for i :=0 to len-1 do datei.Write(Planeten[i], sizeof(Planeten[i])); //Planeten abspeichern
    datei.Free;                                                          //Speicher freigebn
end;

procedure TMainForm.LoadFromFile(const FileName: TFileName);
var len,i:integer;
    datei: TFileStream;
begin
    datei :=TFileStream.Create(FileName, fmOpenRead); //Datei "öffnen"
    datei.Read(len, sizeof(len));                     //länge des arays einlesen
    setlength(Planeten, len);                         //arraylänge einstellen
    for i :=0 to len-1 do datei.Read(Planeten[i], sizeof(Planeten[i])); //Planeten auslesen
    datei.Free;                                                //speicher freigeben
end;

auf den ersten Blick scheint alles zu funzen. Aber der record enthält einen einzigen String (alles andere ist integer oder byte) und mit diesem string klappt das nicht so wirklich.da kommen dann irgendwelche komischen zeichen bei raus...