怎么读取软件目录下的TXT文本呀？

Question

怎么读取软件目录下的TXT文本呀？多谢指点啦。。

Answer 1

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

Answer 2

当前应用程序的目录：extractfilepath(application.ExeName)

Answer 3

我看到 Assignfile(myfile,'d:\cell.txt');   ，这个是不是读取D盘指定的TXT文本呀。

Answer 4

可能我没讲清楚。。我现在是想要 在FROM 里面放一个 Memo 控件，然后一打开软件，就自动读取软件目录下面的TXT文本，代码怎么写呀

Answer 5

将showmessage(s)改成 Memo1.Lines.Add(s); 

Answer 6

多谢高手指点。现在就差一点。现在实现读取软件目录下指定的TXT，现在好像是读取D盘的。

Answer 7

csdn上真是高手如云呀。我一边问他们一边回答。。好热情，还有你，你同样是。多谢你啦。