uses Classes;
function ReadStringFromFile(const FileName: string): RawByteString;
var
S: TFileStream;
Count: SizeInt;
begin
S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNoneFlags);
try
Count := S.Size;
SetLength(Result, Count);
S.ReadBuffer(Pointer(Result)^, Count);
finally
S.Free;
end;
end;
procedure WriteStringToFile(const FileName: string; const Data: RawByteString);
var
S: TFileStream;
begin
S := TFileStream.Create(FileName, fmCreate);
try
S.WriteBuffer(Pointer(Data)^, Length(Data));
finally
S.Free;
end;
end;