Memo Inhalt in einem Stream abspeichern

[Nastarowje]

So,

habe es jetzt so realisiert :

Delphi-Quellcode:

procedure AdressSave;
var StringLength : integer;      // Abspeichern der Länge des zu speichernden Streams
Begin
  AdressStream := TFileStream.Create('C:\Dokumente und Einstellungen\Michael\Desktop\Test.db',fmCreate);

    // Anrede speichern
    StringLength := Length(Form1.KAnrede.Text);
    AdressStream.Write(StringLength,SizeOf(StringLength));
    AdressStream.Write(PChar(Form1.KAnrede.Text)^,StringLength);

    // Notizen speichern
    Form1.KNotizen.Lines.SaveToStream(AdressStream);

    // Name speichern
    StringLength := Length(Form1.KName.Text);
    AdressStream.Write(StringLength,SizeOf(StringLength));
    AdressStream.Write(PChar(Form1.KName.Text)^,StringLength);

  AdressStream.Free;
End;



{---------------------------- Adressdaten laden -------------------------------}
procedure AdressLoad;
var StringLength : integer;       // Länge des Strings
    ZwischenString : string;      // Der String wird hier zwischengespeichert
Begin
  AdressStream := TFileStream.Create('C:\Dokumente und Einstellungen\Michael\Desktop\Test.db',fmOpenRead);

    // Anrede laden
    AdressStream.Read(StringLength,SizeOf(StringLength));
    //ShowMessage(IntToStr(StringLength));
    SetLength(ZwischenString,StringLength);
    AdressStream.Read(PChar(ZwischenString)^,StringLength);
    Form1.KAnrede.Text := ZwischenString;

    // Notizen laden
    Form1.KNotizen.Lines.LoadFromStream(KundenStream);

    // Name laden
    AdressStream.Read(StringLength,SizeOf(StringLength));
    //ShowMessage(IntToStr(StringLength));
    SetLength(Zwischenstring,StringLength);
    AdressStream.Read(PChar(ZwischenString)^,StringLength);
    Form1.KName.Text := ZwischenString;

  KundenStream.Free;
End;

Das Abspeichern funktioniert problemlos. Es wird die Länge vor den Stream gespeichert, um den Stream dann besser auslesen zu können.

Beim Laden funktionierts bis zu den Notizen. Hier trägt er alles in die Edit und Memofelder richtig ein. Im Namenfeld steht dann aber wieder die Anrede drin. (Die Reihenfolge des speicherns und ladens wurde bewusst so gewählt.)