其他单元怎样调用本单元定义的过程？在线等候

Question

如题，代码如下：public
  procedure form_clear; //清空窗体的内容.....//清空窗体的内容
procedure  TForm_warehouse_io.form_clear;
var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
    begin
      if Components[i] is Tedit then
       (Components[i] as Tedit).Clear;
    end;
end;

Answer 1

implementationuses uCommon;  //uComon是你的的单元名;procedure TForm1.Button1Click;
begin
  Form_warehouse_io.form_clear;  //调用
end;

Answer 2

楼上的好像就可以，主要是过程放在PUBLIC里面，就可以用楼上的方式调用了。

Answer 3

在 implementation
下面输入:
    uses  unit1,unit2；//uses你的 form_clear过程所在的单元然后在程序中使用 Form1.form_clear就可以了（Form1指的是你有form_clear过程的窗体）

Answer 4

在要调用的单元use定义过程的单元就可以了

Answer 5

for i:=0 to ComponentCount-1 do
.....
两个窗体重的ComponentCount是不一样的，所以实现的效果不一样，所以关键是怎样动态设置ComponentCount的值欢迎关注！！

Answer 6

(Components[i] as Tedit).Clear;这句好象不对吧，不记得TEdit有Clear的方法，改(Components[i] as Tedit).Text:='';试试？其他的上面的好象都说了。