for i:=0 to Self.ComponentCount-1 do
if (Components[i] is TEdit) then
begin
TEdit(Components[i]).Caption:='A'+IntToStr(i);
//这里家你的改动
end;
好像是这样的,你调试一下吧
if (Components[i] is TEdit) then
begin
TEdit(Components[i]).Caption:='A'+IntToStr(i);
//这里家你的改动
end;
好像是这样的,你调试一下吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货