我想对文本文件中的信息进行读取，我这里没有相关资料可查，请高手帮助！！

Question

有一个名字为1.txt的文本文件，其内容为 1111 我想读里面的内容1111，读出后赋给字符串变量str，请问如何操作？！

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
var
  F: TextFile;
  str: string;
begin
  AssignFile(F,'1.txt');
  Reset(F);
  ReadLn(F,str);
  CloseFile(F);
  ShowMessage(str);
end;

Answer 2

AssignFile ： 把一个外部文件名和一个文件变量相关联
Reset  ：打开一个存在的文件
Rewrite    ：创建并打开一个新文件（或覆盖原有文件）
Append   ： 以添加方式打开一个文件（只适用于文本文件）
CloseFile  ： 关闭一个打开的文件
FileOpen  ：打开一个特定的文件并返回文件句柄
FileCreate  ：创建一个给定文件名的文件并返回文件句柄
FileClose  ： 关闭一个特定句柄的文件
文件定位Seek ： 把文件当前位置移到指定部分
FilePos ： 返回文件的当前位置
Eoln ： 返回行结束标志
EOF ： 返回文件结束标志
FileSeek ：  改变当前文件指针的

Answer 3

如果文本文件中有多行，如何操作
－－－－－－
多行就一行一行读，读到空为止procedure TForm1.Button4Click(Sender: TObject);
var
  F: TextFile;
  str: string;
begin
  AssignFile(F,'1.txt');
  Reset(F);
  While not Eof(F) do
  begin
    ReadLn(F,str);
    ShowMessage(str);
  end;
  CloseFile(F);
end;

Answer 4

1.用循环,用EOF判断是否已经读到末尾。
2.用TStrings的LoadFromFile方法。