Datei lesen, erzeugen und abspeichern!

[shmia]

Mit der folgenden Unit kannst du einen String in eine Datei speichern oder daraus laden:

Delphi-Quellcode:

unit FileStreamUtils;

interface

function LoadStringFromFile(const filename:string):string;
procedure SaveStringToFile(const filename, data:string);


implementation

uses Classes, SysUtils;

function LoadStringFromFile(const filename:string):string;
var
   fs : TStream;
begin
   fs := TFileStream.Create(filename, fmOpenRead or fmShareDenyWrite);
   try
      SetLength(Result, fs.Size);
      fs.ReadBuffer(Result[1], fs.Size);
   finally
      fs.Free;
   end;
end;

procedure SaveStringToFile(const filename, data:string);
var
   fs : TStream;
begin
   fs := TFileStream.Create(filename, fmOpenWrite or fmShareDenyWrite);
   try
      fs.WriteBuffer(data[1], Length(data));
   finally
      fs.Free;
   end;
end;

end.