Speichern von Binären Bäumen in einer Datei

[Sebastian92]

mein Auslesen sieht twie folgt aus:

Delphi-Quellcode:

procedure TBaum.LoadDatei(f :String);
var Inhalt :TInhalt;
begin
  if FileExists(f)
    then begin
      Clear;
      Assignfile(sDatei,f);
      Reset(sDatei);
      while(not Eof(sDatei))
        do begin
          Write(sDatei,Inhalt);
          Hinzu(Inhalt.Information);
        end;
      CloseFile(sDatei);
    end
    else MessageDlg('Datei existiert nicht',mtError,[mbOk],0);
end;

p.s. Die Prozedur Clear, Löscht den Baum.