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 结构化文件存取

Delphi webbroker 输出图片的问题

Delphi中使用goo.gl（google的缩短url服务）api

Delphi 三层架构简单例子(经测试成功)

monthoftheyear：取得一个tdatetime变量的月份在年度中的索引

Delphi xe6 �c使用android的zlib

Delphi datasnap 的连接事件顺序图

Delphi post登陆Delphi盒子论坛源码

Delphi hmacsha256

Delphi android拍照报错

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

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