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

Question

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

Answer 1

var
  Strs: TStrings;
  S: String;
begin
  Strs := TStringList.Create;
  Strs.LoadFromFile('c:\aa.txt');
  S := Strs.Text;
  FreeAndNil(Strs);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

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

Answer 3

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;
//大概就这样了

Answer 4

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

Answer 5

DWGZ() (★ ) ：
你说的有一定道理，但是之所以推荐这样的方法，主要是希望大家能多采用面向对象编程原理，而少使用非OOP的全局过程和函数。对于初学者，要记住那么多全局函数和过程是很麻烦的事情。————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 6

FileRead
怎么用？？？