Inhalt eines Memos binär speichern?

[himitsu]

erstmal, wenn du in Text war reinladen willst, dann mußt die den Speicher zum Reinladen erstmal reservieren.

und Text zeigt nicht auf die Stringdaten, sindern auf den Stringzeiger

Delphi-Quellcode:

Laenge := Length(Text);
FileWrite(FileHandle, Laenge, SizeOf(Laenge));
FileWrite(FileHandle, Text[1], Leange);  // und die länge muß auch stimmen

FileRead(FileHandle, Laenge, SizeOf(Laenge));
SetLength(Text, Laenge);
FileRead(FileHandle, Text[1], Laenge);

falls Text mal leer sein kann, mußt du das auch noch absichern, da Text[1] sonst eine Exception wirft, wenn du auf der erste, nicht vorhandene Zeichen zugreifen willst.

Delphi-Quellcode:

Laenge := Length(Text);
FileWrite(FileHandle, Laenge, SizeOf(Laenge));
If Laenge > 0 Then FileWrite(FileHandle, Text[1], Leange);

FileRead(FileHandle, Laenge, SizeOf(Laenge));
SetLength(Text, Laenge);
If Laenge > 0 Then FileRead(FileHandle, Text[1], Laenge);