问:从edit1 到edit60 全部初始化为0,这段代码怎么写? thanks!(50分)

  • 主题发起人 主题发起人 大森林
  • 开始时间 开始时间

大森林

Unregistered / Unconfirmed
GUEST, unregistred user!
问:从edit1 到edit60 全部初始化为0,这段代码怎么写? thanks!
 
for i:=0 to controls.count-1 do
if control is TEdit
then
(control as TEdit).Text:='0';
 
for i := 0 to (Self.ComponentCount - 1) do
if (Self.Components is TEdit) then
begin
(Self.Components as TDBEdit).text := '0';
end;
 
for i:=1 to componentcount-1 do
if components is Tedit then
TEdit(components).text:='0';
 
for i:=1 to 60 do
TEdit(findcomponent('edit'+inttostr(i))).text:='0';
 
多人接受答案了。
 
后退
顶部