求教代码转成公共代码
下面的代码是一个清空TEXT的过程,但当前不是公共的,我想建立一个公共单元,所有窗体调用这个过程,请问代码该如何改啊,求救啊
procedure TFrmGuanJianCi.ClearAllCompText;
var
i:Integer;
begin
for i:=0 to ComponentCount - 1 do
begin
if Components[i] is TEdit then
begin
(Components[i] as TEdit).Text:='';
end;
if Components[i] is TMemo then
begin
(Components[i] as TMemo).Text:='';
end;
if Components[i] is TComboBox then
begin
(Components[i] as TComboBox).Text:='';
end;
end;
end;