怎样将一个文本文件的内容读到一个字符串中？

Question

如题，请大家帮忙。

Answer 1

1.用stringlist.loadfromfile
2.用memo控件loadfromfile

Answer 2

那个文本文件是.ini属性的话,就可以这样操作
var
  IniF:TIniFile;
begin
  IniF:=TIniFile.Create('.\HJKZ.ini');//创建一个文本文件HJKZ.ini,如果存在就不创建并把文件指针赋值给它
  IniF.WriteString('TwoMiDuSet','TwoMiDu',Edit1.Text);//把Edit1.Text写到TwoMiDuSet部分的TwoMiDu字段中去
  IniF.Free;  IniF:=TIniFile.Create('.\HJKZ.ini');//创建一个文本文件HJKZ.ini,如果存在就不创建并把文件指针赋值给它
  IniF.ReadString('TwoMiDuSet','TwoMiDu','');//读取TwoMiDuSet部分的TwoMiDu字段中的值,''表示如果没有值就默认为空的.
  
  IniF.Free;

Answer 3

var
  sfile:tstringlist;
begin
  sfile:=tstringlist.create(self);
  sfile.loadfromfile('filename');
end;

Answer 4

var
Mytextfile:TextFile;
s:string;//string[30] 指定长度可以决定读入变量s中的行数
begin
  AssignFile(MytextFile,'Mytextfile.txt');
  Reset(myTextFile);
  try
  while not eof(MyTextFile) do
  begin
  readln(MytextFile,s);
  Memo1.lines.add(s);
  end;
 finally
 closeFile(MytextFile);
 end;
 end;

Answer 5

var
  sfile:tstringlist;
  a: string;
begin
  sfile:=tstringlist.create(self);
  sfile.loadfromfile('filename');
  a:= sfile.text;
end;