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

Question

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

Answer 1

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;

Answer 2

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;