Moin Spider,
Du hast es doch eigentlich schon:
Delphi-Quellcode:
// schreiben
procedure TForm1.Button1Click(Sender: TObject);
var Datei: TFileStream;
T: String;
Count: Integer;
begin
T := Edit1.Text;
Count := Length(T);
try
Datei := TFileStream.Create('d:\Test.txt',fmcreate);
Datei.Write(T[1], Count);
finally
Datei.Free;
end;
end;
// Lesen
procedure TForm1.Button2Click(Sender: TObject);
var Datei: TFileStream;
T: String;
begin
try
Datei := TFileStream.Create('d:\Test.txt',fmOpenRead);
T := StringOfChar(#00,Datei.Size);
Datei.Read(T[1], Datei.Size);
finally
Datei.Free;
end;
end;
ungetestet, sollte aber stimmen.
BTW: Ich hab' nur noch mal die Methoden xxxBuffer gegen die ohne ausgetauscht.