通过formshow用opendialog自动打开一个txt文本，怎么实现，求高手 - 编程论坛

#2

zin59702011-06-01 14:18

你要实现什么样的？是弹出选择文本还是打开已选择的文本的内容

#3

小玉儿2011-06-02 14:54

在formshow事件里写代码呀！比如：我的button1click里有打开txt的操作；这个时候在formshow事件里写button1click（sender）；就能自动调用打开txt文本，你看是不是这个意思？

#4

yuutian2011-06-05 17:28

没有完全明白你的意思，你是只要打开文件名，还是要打开txt文件并把txt中的内容
读取。
这个你可以参考一下，在formshow下写代码,
    ............
  var
    myfile:textfile;
    s:string;
begin
  if opendialog1.execute then
     edit1.text:=opendialog1.filename;//将打开的wenjian.txt文件名读取到edit中
     assignfile(myfile,'d:\wenjian.txt');//将在d盘中的wenjian.txt文件内容读取到memo中
     reset(myfile);
     while not eof(myfile) do
           begin
           readln(myfile,s);
           memo1.lines.add(s);
           end;
end;