TCheckBox ckbTemp;
TComponet Object;
for i:=0 to ComponetCount-1 do begin
Object := Componet[i];
if Object.ClassNameis(TCheckBox) begin
ckbTemp = TCheckBox(Object);
Dis_pro[StrToInt(ckbTemp.name.substring(9,3))] = ckbTemp;
end;
end好久没有用Delphi了,反正方法就是这样,判断每一个对象基类名,如果是TCheckBox则到对象的名称,最后根据名称进行你要的处理,其中有些函数要你自己去捉摸,如果你要C++版,我有现成的函数。
TComponet Object;
for i:=0 to ComponetCount-1 do begin
Object := Componet[i];
if Object.ClassNameis(TCheckBox) begin
ckbTemp = TCheckBox(Object);
Dis_pro[StrToInt(ckbTemp.name.substring(9,3))] = ckbTemp;
end;
end好久没有用Delphi了,反正方法就是这样,判断每一个对象基类名,如果是TCheckBox则到对象的名称,最后根据名称进行你要的处理,其中有些函数要你自己去捉摸,如果你要C++版,我有现成的函数。
Dis_pro[i] := TCheckBox(FindComponent('CheckBox' + IntToStr(i)));或
for i := 0 to ComponentCount -1 do
if Components[i] is TCheckBox then
dis_pro[StrToInt(Copy(Components[i].Name, 9, MaxInt))] :=
TCheckBox(Components[i]);