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.)