如何依次给控件赋值. 假设我有一百个label,依次命名为lb1,lb2,lb3...lb100有何办法可以依次对其赋值1,2,3....100如果我只想给lb20--lb40依次赋值为1,2,3...20,有何好办法可实现??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 for i:=1 to 100 dobegin TLabel(FindComponent('lb'+IntToStr(i))).Caption:= ... ;end; var I,J: Integer;begin J:=0; for I:= 0 to ComponentCount -1 do if Components[I] is TLabel then begin J:=J+1; TLabel(Components[I]).caption:=J; end;end; 是谁删了我的回复?请现身告诉我根据哪一条版规删除的 关于WINSOCK编程的两个问题 知道一个窗体的句柄,如何在该窗体建立鼠标钩子 用delphi如何编写用户态usb应用程序? 如何获得数据库结构的信息 只要用连续打印发票时,第一张正确,第二张就不正常,我调了不是走多了就是走少了第三张一样的。 请问一个简单的问题,回答有分哟!! 心情郁闷!散分! 怎样处理光标抖动问题|? 关于DBGRID的小问题,请指教! 在三层结构中,修改Access表的date字段老是不能保存。而修改其他类型字段却没问题。 请问如何使一个字符串变为已存在Edit,详情请进来看看?????
begin
TLabel(FindComponent('lb'+IntToStr(i))).Caption:= ... ;
end;
I,J: Integer;
begin
J:=0;
for I:= 0 to ComponentCount -1 do
if Components[I] is TLabel then
begin
J:=J+1;
TLabel(Components[I]).caption:=J;
end;
end;