一个初始化窗体编辑类控件的函数

 

function ResetControls(oForm:TForm):Boolean;
var
    i:integer;
begin
    for i:=1 to oForm.ComponentCount do
    begin
        if (oForm.Components[i-1] is TEdit) then
            (oForm.Components[i-1] as TEdit).Text :=''
        else if (oForm.Components[i-1] is TComboBox) then
            (oForm.Components[i-1] as TComboBox).Text :=''
        else if (oForm.Components[i-1] is TMemo) then
            (oForm.Components[i-1] as TMemo).Text :=''
        else if (oForm.Components[i-1] is TCheckBox) then
            (oForm.Components[i-1] as TCheckBox).Checked :=False
        else if (oForm.Components[i-1] is TMemo) then
            (oForm.Components[i-1] as TMemo).Text :=''
        else if (oForm.Components[i-1] is TRadioButton) then
            (oForm.Components[i-1] as TRadioButton).Checked :=False;
    end;
    Result:=True
end;