如何把一个text文件的内容读到 string变量里面

[zhangxiasummer]

如何把一个text文件的内容读到 string变量里面

[lxpbuaa]

var
Strs: TStrings;
S: String;
begin
Strs := TStringList.Create;
Strs.LoadFromFile('c:\aa.txt');
S := Strs.Text;
FreeAndNil(Strs);
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[DWGZ]

楼上的方法虽行， 但是分配了两次内存
还FileRead吧

[goldwolf]

var strs:tstrings;
str:string;
i:integer;
begin
str:='';
strs:=tstrings.create;
strs.loadfromfiles(文本文件);
for i:=1 to strs.count do
str:=str+strs.lines[i].text
end;
//大概就这样了

[DWGZ]

1楼的方法虽然可行， 但是分配了两次内存显然没有意思
正确的应该是用FileRead

[lxpbuaa]

DWGZ() (★ ) ：
你说的有一定道理，但是之所以推荐这样的方法，主要是希望大家能多采用面向对象编程原理，而少使用非OOP的全局过程和函数。对于初学者，要记住那么多全局函数和过程是很麻烦的事情。

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[zhangxiasummer]

FileRead
怎么用？？？

[zhangxiasummer]

readln();也行吗