delphi 读取txt文件

1、 放一下memo控件、一个button、opendialog
在button的click事件中
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.filename);  

2、滥简单的事啊

var
   Mytxt : TStringList;
begin
   MyText := TStringList('你的文本文件及路径');

   MyText.Free;//使完后要FREE哦
end;  

 

用一个Memo，然后用Memo1.Lines.LoadFromFile('C:/.../*.txt');
OK!  

还有一种方法：
var
f:textfile;
s:string;
begin

 

assignfile(f,'路径和文件名.txt');
  reset(f);
  readln(f,s);
  showmessage(s);
  closefile(f);
end;