Delphi中读取文本文件的方法（实例一）

procedure TForm1.BtnReadClick(Sender: TObject);
var
  txtFile: TextFile;
  s: String[14]; //读取定长的字符串,这样的话就可以将列分开
  i: Integer;
begin
  //MyTxtFile.txt
  Memo1.Lines.Clear;
  AssignFile(txtFile,'MyTxtFile.txt');
  Reset(txtFile); //以只读方式打开文件
  try
    while not EOF(txtFile) do
    begin
      Readln(txtFile,s,i);
      Memo1.Lines.Add(s+ IntToStr(i))
    end;
  finally
    CloseFile(txtFile); //关闭文件
  end;
end;

需要注意两点：读取文件时以只读方式打开文件和最后必须关闭文件。