var
i:integer;
begin
for i:=0 to componentcount -1do
if components[i] is Tcombobox then
tcombobox(components[i]).text:='';
end;
其他都一样了!
i:integer;
begin
for i:=0 to componentcount -1do
if components[i] is Tcombobox then
tcombobox(components[i]).text:='';
end;
其他都一样了!
var
i:integer;
begin
FOR i:=0 to Controlcount-1 do
begin
if controls[i].classname='TCheckbox' then
begin
if not (controls[i] as TCheckbox).checked then
//这里加不是TRUE后,你要干什么
end;
end;
end;