for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TsuiEdit then
(Components[i] as TsuiEdit).Text := '';
if Components[i] is TsuiCheckBox then
(Components[i] as TsuiCheckBox).Checked := False;
if Components[i] is TsuiCheckListBox then
(Components[i] as TsuiCheckListBox).Items.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
if Components[i] is tedit then (components[i] as tedit).Text:='';
end;
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TsuiEdit then
(Components[i] as TsuiEdit).Text := '';
if Components[i] is TsuiCheckBox then
(Components[i] as TsuiCheckBox).Checked := False;
if Components[i] is TsuiCheckListBox then
(Components[i] as TsuiCheckListBox).Items.Clear;
end;
var i:integer;
begin
for i:= 0 to form1.componentcount-1 do //不好意思componentcount记不太清!!
if components[i] is Tedit then //遍历窗体的所有控件,并判断是否是Tedit类型的.
(components[i] as Tedit).text:='';//如果是则把它清空
end;