求教代码转成公共代码

changfenglee 2017-03-30 09:07:42
下面的代码是一个清空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;
...全文
35 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
相关推荐
发帖
Delphi
创建于2007-08-02

4924

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2017-03-30 09:07
社区公告
暂无公告