关于循环编辑控件的问题 我建立了20个Edit控件,名称默认从Edit1--Edit20,然后想通过For循环改变其Text中的内容,比如全部改为0,请问For循环中怎么表达?for i:=1 to 20 dobegin ????????end 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 form1.findcomponent('edit'+inttostr(i)) var i:Integer; c:TComponent;begin for i:= 1 to 20 do begin c := FindComponent('Edit'+IntToStr(i)); if c is TEdit then begin TEdit(c).Text := '0'; end; end;end; 谢谢1楼!完整写法:TEdit(findcomponent('edit'+inttostr(i))).Text:='0'; delphi32.exe 不是有效的 Win32 应用程序 咋办? 图片保存方式 求教关于listview中颜色问题 如何在Delphi中輸入"叁"字?操作系統是繁體中文。急﹐在線等﹗ 请教一个关于MDI窗体的问题? 十万火急,日期比较,请高手速帮忙!!! combobox的item显示问题 Delphi中有类似于C#中的ArrayList类的类吗? 欢迎欢迎热泪欢迎 请高手请点一下 程序运行时的错误 如何在CxGrid的从表中增加记录 delphi如何获取返回码为200的重定向过的源代码?
var
i:Integer;
c:TComponent;
begin
for i:= 1 to 20 do
begin
c := FindComponent('Edit'+IntToStr(i));
if c is TEdit then
begin
TEdit(c).Text := '0';
end;
end;
end;
完整写法:TEdit(findcomponent('edit'+inttostr(i))).Text:='0';