文件操作时通过返回值返回文件内容出错？

[hustwjz]

将文件内容读入到一个字符串中。文件内容为二进制得数据
function TMyCipher.LoadBuffer(strFile: string): string;
var
hFile: TFileStream;
begin
hFile := TFileStream.Create(strFile, fmOpenRead);
hFile.Read(Result, hFile.Size);
hFile.Free;
end;

访问返回值时出现非法操作。为啥？

[hustwjz]

不行啊

[xml1123]

function TMyCipher.LoadBuffer(strFile: string): string;
var
slTmp: TStrings;
begin
slTmp:= TStringList.Create;
slTmp.LoadFromFile(strFile);
result:= slTmp.Text;
slTmp.Free;
end;

[aiirii]

修改如下:
SetLenth(Result, hFile.Size+1);
hFile.Read(Result, hFile.Size);