Mit den beiden folgenden Funktionen, wird das Laden und Speichern zum Kinderspiel:
Delphi-Quellcode:
function FileToString(const FileName: string): AnsiString;
var
fs: TFileStream;
Len: Integer;
begin
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
Len := fs.Size;
SetLength(Result, Len);
if Len > 0 then
fs.ReadBuffer(Result[1], Len);
finally
fs.Free;
end;
end;
procedure StringToFile(const FileName: string; const Contents: AnsiString);
var
fs: TFileStream;
Len: Integer;
begin
fs := TFileStream.Create(FileName, fmCreate);
try
Len := Length(Contents);
if Len > 0 then
fs.WriteBuffer(Contents[1], Len);
finally
fs.Free;
end;
end;
Man kann übrigens Daten in einem TMemo ganz einfach laden und speichern
Delphi-Quellcode:
Memo1.lines.LoadFromFile('datei.html');
Memo1.lines.Add('<body>');
Memo1.lines.Add('</body>');
Memo1.lines.SaveToFile('datei.html');