请问:在Delphi中如何定义全局函数以及其他,请各位看看(20分)

  • 主题发起人 主题发起人 黑衣人
  • 开始时间 开始时间

黑衣人

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi中定义全局函数是在Main窗口中定义吗?具体定义的格式怎样呢?
还有函数的实现部分是不是也在Main窗口中?如果其他窗口要调用这个全局函数
只需在自己的窗口中写出函数名并给出参数就行了吗?
 
急啊,别淹掉了,顶!
 
是我写得不清楚还是没人懂?我再顶
 
做一个新的Unit,把所有函数放里面,然后在所有的窗体引用这个unit,就可以了。
 
要引用哪个函数,只要先uses它所在的Unit,就可以了.不一定要写在一个新的UNIT中,但是这样
会便于管理.
 
那请问,全局函数的程序部分直接写在main这个单元中就行了吗?
在调用该函数的单元中不需要再写一遍了吧?
 
在implementation之前定义的变量就可以全局访问
在 public里定义的过程就能被别的窗体调用。

要现在uses中加入被调用的单元名。
 
在过程中procecure Tform1.onpro(cl:stinrg);
在前面声明此过程!既可以在其它单元中使用此过程!
 
比如你新建一个unit,名字为functions,在它的uses 后面就可以声明函数,如:
uses DB;
funciton getdatetimestr:string;
然后在implement后面写函数体就可以了。
引用这个函数的单元需要把functions加入uses中。然后使用getdatetimestr就可以了,
不用functions.getdatetimestr
 
有很多方法啊,可以在任何单元中申请,用的时候再引用这个单元就行了!
 
不好意思,再问一个相关的问题:
Application.MessageBox有中断当前程序执行的功能吗?
我在全局函数中判断用户的操作权限,如果使用Exception类的话,别的单元能不能识别?
如在main单元中定义一个ErrorOper = Class(Exception)
那么使用该全局函数的detail单元能不能识别这个ErrorOper?
如果不能,当操作权限不满足时要在函数中使用什么样的语句停止当前程序的执行?跳出
全局函数?
 
高手们继续啊,我还有不明白的地方。继续顶。
 
后退
顶部