5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
henry2003 2003-06-10
- 打赏
- 举报
接貼,給分啊!
xiangyun123 2003-06-10
- 打赏
- 举报
谢谢大家，搞定了，
xiangyun123 2003-06-10
- 打赏
- 举报
不行，怎么调用过程，我用了USES了、
比如：
单元1：
procedure Tnmain.DataDesignTableChange(tablename: string);
begin
ndatemodule.nDateDesignT.TableName:=tablename;
end;
单元2：调用此过程时怎么用呀
是不是这样main.DataDesignTableChange('groupdept');
比如：
单元1：
procedure Tnmain.DataDesignTableChange(tablename: string);
begin
ndatemodule.nDateDesignT.TableName:=tablename;
end;
单元2：调用此过程时怎么用呀
是不是这样main.DataDesignTableChange('groupdept');
DelUser 2003-06-10
- 打赏
- 举报
我也挺惨的多写了两句变第四个了！：（
DelUser 2003-06-10
- 打赏
- 举报
uses unit2;
public
procedure ShowSomething; // 声明为公共过程
end;
procedure ShowSomething;
begin
Showmessage('ok');
end;
unit unit1;
uses unit2; // 引用 unit2单元
Form2.ShowSomething; // 调用过程
public
procedure ShowSomething; // 声明为公共过程
end;
procedure ShowSomething;
begin
Showmessage('ok');
end;
unit unit1;
uses unit2; // 引用 unit2单元
Form2.ShowSomething; // 调用过程
l_xiaofeng 2003-06-10
- 打赏
- 举报
2003-06-10 10:31:00 同样的时间，他就比我快！
l_xiaofeng 2003-06-10
- 打赏
- 举报
unit1,unit2
in the unit1 ,uses unit2.
unit2.function;
in the unit1 ,uses unit2.
unit2.function;
outer2000 2003-06-10
- 打赏
- 举报
uses ...
