Suchst du sowas? Ist aus einem alten Projekt, keine Ahnung ob es noch funktioniert. Ich habe auch noch die Save Funktion dazu gepackt, für den Fall, dass du den String auch wieder speichern willst.
Delphi-Quellcode:
function LoadStringFromFile(sInFile: String; var sFileString: String): Boolean;
var
FileStream: TFileStream;
begin
Result := False;
if not FileExists(sInFile) then Exit;
FileStream := TFileStream.Create(sInFile, fmOpenRead);
try
if FileStream.Size <> 0 then begin
SetLength(sFileString, FileStream.Size);
FileStream.Read(sFileString[1], FileStream.Size);
Result := True;
end;
finally FileStream.Free end;
end;
function SaveStringToFile(sOutFile: String; sFileString: String): Boolean;
var
FileStream: TFileStream;
begin
Result := False;
FileStream := TFileStream.Create(sOutFile, fmCreate);
try
if Length(sFileString) <> 0 then begin
FileStream.Write(sFileString[1], Length(sFileString));
Result := True;
end;
finally FileStream.Free end;
end;