如何把C盘里的1.TXT显示在Edit1控件里?

Winmillion 发布于 2008-11-06 18:14， 1520 次点击

请问在按钮1执行后在C盘创建一个1.TXT,如何把C盘里的1.TXT显示在Edit1控件里?

2 回复

ruanjian21102008-11-11 15:15

procedure TForm1.Button1Click(Sender: TObject);
var
FileName:string;
i:integer;
begin
  FileName:='c:\1.txt';
  i:=FileCreate(FileName);
  Edit1.Text:=FileName;
  showmessage(Edit1.Text);
end;
end.

Winmillion2008-11-18 00:06

楼主,我是想写个扫描工具,把扫描的结果在C盘目录里创建一个IP.TXT,然后把IP.TXT显示在Edit1里!