关于函数调用，只有56分，全呈上 ( 积分: 56 )

G

gongfs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-16

• #1

各位大侠，我想实现这样一个功能
我写一个程序，其中，有几个自定义过程,要程序的各个界面都要调用这几个过程
我现在，在每个界面中都定义一次，我可以不可以只要在一个界面中定义，
其它界面可以调用，如何定义,谢谢

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-16

• #2

定义在interface区就行了
unit UFuns;

interface

function Fun1: string;
procedure Proc1;


implementation
...
...
end.

使用

uses
UFuns;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := UFuns.Fun1; //如果没重名，UFuns不用也行
end;

 

D

Delphizhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-16

• #3

過程寫在公共區就可以相互調用了。

 

G

gongfs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-16

• #4

多人接受答案了。