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

 1 procedure TForm1.BtnReadClick(Sender: TObject);
 2 var
 3   txtFile: TextFile;
 4   s: String[14]; //读取定长的字符串,这样的话就可以将列分开
 5   i: Integer;
 6 begin
 7   //MyTxtFile.txt
 8   Memo1.Lines.Clear;
 9   AssignFile(txtFile,'MyTxtFile.txt');
10   Reset(txtFile); //以只读方式打开文件
11   try
12     while not EOF(txtFile) do
13     begin
14       Readln(txtFile,s,i);
15       Memo1.Lines.Add(s+ IntToStr(i))
16     end;
17   finally
18     CloseFile(txtFile); //关闭文件
19   end;
20 end;

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

转载于:https://www.cnblogs.com/zhanglt/archive/2013/01/01/2841519.html