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