delphi中控件数组批量赋值

本文整理自网络，侵删。

 procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 1 to 6 do
begin
TLabel(FindComponent('Label' + IntToStr(i))).Caption := '我是'+inttostr(i)+'号';
//TEdit(FindComponent('Edit' + IntToStr(i))).Caption := '我是'+inttostr(i)+'号';
end;
end;
这样能够
 

相关阅读 >>

Delphi 在tunimemo中复制和粘贴选定的文本

Delphi从trichedit获得rtf格式文本

Delphi twebbrowser 获取cookie

Delphi 64位汇编编程

Delphi 实现定时功能

Delphi 获取随机字符串的方法 thash.getrandomstring

Delphi closehandle的解释

Delphi判断电脑连接到 internet 了吗？

orangeui作者开源作品

Delphi 字符串与内存流和文件的快速转换函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中控件数组批量赋值