|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
wb33 (《三三》) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/1/24 16:47:39 |
标题: |
|
加入我的收藏 |
楼主: |
procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.Filter:='setup.exe'; filtered:=true; // 这一行始终是显示错误,提示是没有定义 fillered 在use 里该定义什么东西? opendialog1.Execute; cfg1:=opendialog1.FileName; if strlen(pchar(cfg1))>0 then begin edit1.text:=opendialog1.FileName; myini.WriteString('totle','c1',cfg1); end; end;
----------------------------------------------
我是初来的菜鸟,多谢各位老鸟指教。 |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/1/24 19:39:25 |
1楼: |
opendialog1没看到这个属性!
此帖子包含附件:
大小:142.3K |
----------------------------------------------
|
|