标题:通过formshow用opendialog自动打开一个txt文本,怎么实现,求高手
只看楼主
张爷
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-5-30
结帖率:0
已结贴  问题点数:10 回复次数:3 
通过formshow用opendialog自动打开一个txt文本,怎么实现,求高手
通过formshow用opendialog自动打开一个txt文本,怎么实现,求高手
2011-05-30 16:41
zin5970
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:29
专家分:195
注 册:2008-10-10
得分:3 
你要实现什么样的?是弹出选择文本 还是打开已选择的文本的内容
2011-06-01 14:18
小玉儿
Rank: 2
等 级:论坛游民
帖 子:19
专家分:11
注 册:2011-4-23
得分:3 
在formshow事件里写代码呀! 比如:我的button1click里有打开txt的操作;这个时候在formshow事件里写button1click(sender);就能自动调用打开txt文本,你看是不是这个意思?
2011-06-02 14:54
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
得分:3 
没有完全明白你的意思,你是只要打开文件名,还是要打开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;

   
  
     
2011-06-05 17:28



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-341429-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.829085 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved