怎么将一个文本文件读到一个string中

[snowrain]

怎么将一个文本文件读到一个string中，
我用的是
str:string;
F:TextFile;
读
AssignFile(F,filename);
Reset(F);
while Not Eof(F) do
Readln(F,str);
CloseFile(F);
但是str始终是空的，请教各位朋友，有什么办法可以将一个文本文件读到一个string中
另外是否每读一行，str会被重写一次，怎样可以使str每次在最尾处追加（类似控制文件指针）
谢谢。

[Linux2001]

楼上和楼上的楼上说的很清楚了，使用楼上的楼上的方法就可以了

[snowrain]

除了用TStringList外，读文件能否一次性读到一个string中？BlockRead行不行？

[qiume]

接帖啦

[vsice]

memo1.text:='';
memo1.lines.LoadFromFile('文件名');
string1:=memo1.text;

[snowrain]

to vsice:
首先谢谢你的回答。
用Tstringlist会不会多引入回车换行符？

[klyh]

Str:=TStringList.Create
Str.LoadFromFile(Path(路径)+'a.Txt')

[BlueTrees]

str,S:string;
F:TextFile;
读
AssignFile(F,filename);
Reset(F);
while Not Eof(F) do
begin
Readln(F,S);
Str;=Str+#$A#$D+S;
end;
CloseFile(F);

[anux]

老大，Readln(F,str)一次只读一行，你每循环一次str里面都是刚读进来，原的东西清掉了，可能刚好你的文件最后行只有一个回车，这样读的东西都是空了的，楼上的已经写的很清楚怎么做了。

[hjb8000]

每读一行，str会被重写一次

[ahjoe]

首先谢谢你的回答。
用Tstringlist会不会多引入回车换行符？这倒是个问题，我没试过。
有下面的方法不会引入多回车。
var
s: string:
fm: TFileStream;
begin
fm := TFileStream.Create('abcd.txt', fmOpenRead);
SetLength(s, fm.Size);
fm.Read(s[1], fm.Size);
fm.Free();
end;