请教delphi 里如何在unit定义 public类型的 函数 及如何在不同unit里使用 (30分)

T

thomashukaidi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #1

delphi 里如何在unit定义 public类型的 函数 及如何在不同unit里使用

 

R

raymondcen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #2

在unit里面的某一个类里的public部分定义函数。
别的unit中只要uses这个Unit。然后创建一个类的Instance。
就可以通过那个instance调用函数了。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #3

在 单元文件的 Implementation,即 interface 部分声明函数类型。

在使用这个函数单元中 uses 这个单元，就可以调用了。

如果存在同名函数，可以在前面添加单元名称：

unitName.functionName

 

T

thomashukaidi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #4

可贴段定义代码？ thank

 

D

dcba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #5

Unit PublicFunctionUnit;
interface
function PublicFunction:integer;
implementation
function PublicFunction:integer;
begin
end;

end;


Unit UsePublicUnit;
interface
uses
PublicFunctionUnit;
implementation
procedure Test;
var
i:integer;
begin
i:=PublicFunction;
end;
end;

 

R

raymondcen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #6

unit Unit1;
interface
type
TTestClass = class(TObject)
public
procedure test;
end;
var
TestObj: TTestClass;//Create的函数你自己实现吧！一般inherit 就行了

implementation

{$R *.dfm}
procedure test;
begin
//你想要的功能
end;

end.

unit Unit2;
interface
uses Unit1;
implementation
unit1.testObj.test;
end.

 

T

thomashukaidi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

thank all

 

T

thomashukaidi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #8

thank all