|
|
|
| 导航： |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
| 作者： |
|
2004/1/12 13:59:38 |
| 标题： |
| 请问在Delphi7中，如何实现像VFP中的宏替换功能，能用指针吗？如何用呢？谢谢！！ |
浏览:1568 |
|
加入我的收藏 |
| 楼主： |
请问在Delphi7中，如何实现像VFP中的宏替换功能，能用指针吗？如何用呢？谢谢！！
----------------------------------------------
~~ |
| 作者： |
 bios (阿贡) |
★☆☆☆☆ |
-
|
| 盒子中级会员 |
|
2004/1/12 14:51:27 |
| 1楼： |
VFP中的宏替换???
没学过 不懂！
----------------------------------------------
|
| 作者： |
|
2004/1/12 16:28:20 |
| 2楼： |
是这样的，比如有10个Edit控件，名字分别为Edit1-Edit10,我要用修改它的某一个值，如果可以用宏，就用一个循环就可以了，如下：for i:=1 to 10 do ('edit'+inttostr(i)).enable:=false;要不然我不知道用什么方法更方便。只好一个一个的赋值。
----------------------------------------------
~~
|
| 作者： |
|
2004/1/12 16:38:20 |
| 3楼： |
已經有很多關于這方面的問題﹐在論壇上找一下就行
----------------------------------------------
-
|
| 作者： |
| bios (阿贡) |
★☆☆☆☆ |
-
|
| 盒子中级会员 |
|
2004/1/12 16:41:24 |
| 4楼： |
原来是这样啊强烈！学习
----------------------------------------------
|
| 作者： |
|
2004/1/13 11:59:25 |
| 5楼： |
好的谢谢大家啊
----------------------------------------------
~~
|
| 作者： |
|
2004/1/15 9:46:50 |
| 6楼： |
var
i:integer;
begin
for i:=0 to 10 do
TEdit(FindComponent(inttostr(i))).enable:=false
------------------------------------------
----------------------------------------------
保护钓鱼岛是每个中国人应尽的义务!
|
| 作者： |
|
2004/1/15 11:08:21 |
| 7楼： |
谢谢各位大哥，小弟先试试
----------------------------------------------
~~
|
| 作者： |
|
2004/1/15 12:11:05 |
| 8楼： |
lycnew大哥我试过了还是不行，如果值为真假时会出错，是其它的时没有反映,我的OS是Delphi 7+windows 2000
----------------------------------------------
~~
|
| 作者： |
|
2004/1/15 12:24:23 |
| 9楼： |
谢谢各位大哥，我明白了。终于会了
----------------------------------------------
~~
|
| 作者： |
| bios (阿贡) |
★☆☆☆☆ |
-
|
| 盒子中级会员 |
|
2004/1/15 13:05:26 |
| 10楼： |
怎么解决的
----------------------------------------------
|
| 作者： |
|
2004/1/15 14:15:35 |
| 11楼： |
Bios大哥，是用lycnew大哥的方法，只是在FindComponent()中加入控件名字，名字是字符型，所以就可以控制了，在函数前面用类型。比如说：TEdit(FindComponent('Edit'+inttostr(i))).Visible:=False;通过控制i变量，就可以控制相应的控件了。谢谢，还得感谢lycnew大哥！！
----------------------------------------------
~~
|
| 作者： |
| bios (阿贡) |
★☆☆☆☆ |
-
|
| 盒子中级会员 |
|
2004/1/16 11:22:10 |
| 12楼： |
哦 学习！
----------------------------------------------
|
|
