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.