遍历方法一例

procedure tform2.adclear();
var
  i:Integer;
begin
 for i:=0 to Form2.ControlCount-1 do
  begin
    if Form2.Controls[i] is TRzEdit then  TRzDBEdit(form2.Controls[i]).clear  else
    if Form2.controls[i] is TRzNumericEdit then  TRzNumericEdit(Form2.Controls[i]).Text:='0' else
    if form2.Controls[i] is TRzRichEdit then TRzRichEdit(Form2.Controls[i]).Clear else
    if Form2.Controls[i] is TRzDateTimeEdit then TRzDateTimeEdit(Form2.Controls[i]).Date:=Date else
    if Form2.Controls[i] is TEdit then TEdit(form2.Controls[i]).Clear
  end;
end;