Inhalt eines Memos binär speichern?

[Yakumo500]

Danke soweit funktioniert es.

Aber wenn ich jetzt den Inhalt eines Edits speichere und nach einem Neustart des Programms lade kommt ein Fehler:

Access violation at adress 7C91ED9E in module 'ntdll.dll'. Read of address 00BBFFFF

Ich habe keine Ahnung was dieser Fehler zu bedeuten hat.

Mein Code:

Delphi-Quellcode:

// ... uses usw. ...

var
  Form1: TForm1;
  Path : string = 'test.rmn';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  FileHandle: Integer;
  Text: String;
  Laenge: Integer; // <------------- Eine Variable für die Länge des Strings
begin
  Text := Edit1.Text;

  FileHandle    := FileCreate(Path);

  Laenge := Length(Text); // <------------- Länge des Strings ermitteln
  FileWrite(FileHandle, Laenge, SizeOf(Laenge)); // <--------------- Länge des Strings speichern

  FileWrite(FileHandle, Text, SizeOf(Text));

  FileClose(FileHandle);
end;

procedure TForm1.Button2Click(Sender: TObject);
var 
  FileHandle  : Integer;
  Text : String;
  Laenge      : Integer;
begin
  FileHandle    := FileOpen(Path, fmOpenRead);

  FileRead(FileHandle, Laenge, SizeOf(Laenge));
  FileRead(FileHandle, Text, Laenge);

  FileClose(FileHandle);

  ShowMessage(Text);
end;

end.