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   try12     while not EOF(txtFile) do13     begin14       Readln(txtFile,s,i);15       Memo1.Lines.Add(s+ IntToStr(i))16     end;17   finally18     CloseFile(txtFile); //关闭文件19   end;20 end;

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