怎样将文件内容读到一个字符串中呢？解决方法

怎样将文件内容读到一个字符串中呢？
要借助控件来实现吗？

[解决办法]
不需要用控件啊，用Delphi自带的函数/过程就可以实现了，以下演示的是读取C:\win.ini 文件的第一行。

procedure TForm1.Button1Click(Sender: TObject);
var
txtFile:TextFile;
aStr:String;
begin
AssignFile(txtFile, 'C:\windows\win.ini ');
reset(txtFile);
readln(txtFile,aStr);
CloseFile(txtFile);
ShowMessage(aStr);
end;

[解决办法]
procedure TForm2.Button1Click(Sender: TObject);
var
S: string;
begin
if OpenDialog1.Execute then
with TFileStream.Create(OpenDialog1.FileName, fmOpenRead) do
try
SetLength(S, Size);
Read(pointer(@S[1])^, Size); //读入到S
Showmessage(S);
finally
Free;
end;
end;