| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/20 9:18:40 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 如何用类似这样的循环控制 for i:= 1 to 4 do begin labelX.Caption :=i; <-请问这样意思的代码怎么写？这样写肯定是错了 end; 得到以下结果 label1.Caption :='1'; label2.Caption :='2'; label3.Caption :='3'; label4.Caption :='4'; ---------------------------------------------- 向大家学习。 |
|||||
| 作者： |
|
2004/2/20 9:22:06 | ||||
| 1楼： | 半年以前就这么干过，可是不行~~~ 期待着答案... ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 9:30:37 | ||||
| 2楼： | 顶 ---------------------------------------------- -和大家一起学习,一起进步！！！ |
|||||
| 作者： |
|
2004/2/20 9:48:07 | ||||
| 3楼： | 1.使用控件组,自己在程序里创建; 或者 2.给每个控件Tag赋值, for i := 0 to Form1.ComponentCount - 1 begin if Form1.Components[i].ClassNameIs('TLabel') then begin case Form1.Components[i].Tag of 1:ss:='1'; 2:ss:='2'; ... end; TLabel( Form1.Components[i]).Caption:=ss; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 9:52:58 | ||||
| 4楼： |  学习一个！----------------------------------------------  =^@^= |
|||||
| 作者： |
|
2004/2/20 10:09:31 | ||||
| 5楼： | 为什么显示出来 是空白的？ -------------- var i:integer; ss:string; begin for i := 0 to 3 do begin if Form1.Components[i].ClassNameIs('TLabel') then begin case Form1.Components[i].Tag of 1:ss:='1'; 2:ss:='2'; 3:ss:='3'; end; TLabel(Form1.Components[i]).Caption :=ss; end; end; end; ---------------------------------------------- 向大家学习。 |
|||||
| 作者： |
|
2004/2/20 10:10:05 | ||||
| 6楼： | 使用控件组怎么使用啊？ 那个比较简便？ ---------------------------------------------- 向大家学习。 |
|||||
| 作者： |
|
2004/2/20 10:26:20 | ||||
| 7楼： | 5楼:我用您的代码试了,没有问题! 附全码:
- |
|||||
| 作者： |
|
2004/2/20 10:32:01 | ||||
| 8楼： | 6楼: var MyLabel:array [1..3] of TLabel; ... procedure TForm1.FormCreate(Sender: TObject); var si:integer; begin for si:=1 to 3 do begin MyLabel[si]:=TLabel.Create(Self); with MyLabel[si] do begin Parent:=Form1; Left:=.. Top:=.. Font... Caption:=... end; end; end; ... var i:integer; begin for i:= 1 to 4 do begin MyLabel[i].Caption :=IntToStr(i); end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 10:57:25 | ||||
| 9楼： | bjdribllec 你看 ----- var i:integer; ss:string; begin for i := 0 to 4 do begin if Form1.Components[i].ClassNameIs('TLabel') then begin case Form1.Components[i].Tag of 1:ss:='1'; 2:ss:='2'; 3:ss:='3'; 4:ss:='4'; end; TLabel(Form1.Components[i]).Caption :=ss; end; end; end; ---------------------------------------------- 向大家学习。 |
|||||
| 作者： |
|
2004/2/20 10:59:13 | ||||
| 10楼： | bjdribllec 你看
向大家学习。 |
|||||
| 作者： |
|
2004/2/20 11:08:35 | ||||
| 11楼： | 您的 Label4 的 Tag 是不是也设成 3 了? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 12:47:44 | ||||
| 12楼： | bjdribllec 非常感谢，都明白了 我觉得数组比较高级 ---------------------------------------------- 向大家学习。 |
|||||
| 信息 |
| 登陆以后才能回复 |
