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;

需要注意兩點：讀取文件時以只讀方式打開文件和最后必須關閉文件。