关于Delphi如何读取.txt文件内容。。。。。。。

[FormatJAVA]

现在我要做一个 PopupMenu 里面的item内容要在.txt文件里面读取。。。
但是我不知道我改怎么读取。。该怎么一行一行的读取。。。
那位大哥快告诉我谢谢。。

[ideation_shang]

var
txtlist:TStringList;
i:integer;
begin
txtlist:=TStringList.create;
txtlist.LoadFromFile('d:\test.txt');
for i:=0 to txtlist.count-1 do
begin
showmessage(txtlist.strings[i]);
end;
end;

[FormatJAVA]

谢谢 两位的帮助问题已经解决。。。

[hong1168]

procedure TForm1.Button1Click(Sender: TObject);
var
myfile:Textfile;
s:string;
i,j:integer;
begin
Assignfile(myfile,'cell.txt');
Reset(myfile);
i:=0;
while not eof(myfile) do
begin
readln(myfile,s);
showmessage(s);
end;
end;