最菜的问题：单元的引用(50分)

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #1

new unit后，新增了unit，如下：
unit Unit1;
interface
uses sysutils,winsock;
implementation
function Getname: string;
begin
result:='123';
end;
end.
在其他单元里如何引用getname?
或者其他另类解决途径。
thanks

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #2

做成dll

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #3

把getname定义在public里就可以了。
引用：Unit1.Getname

 

P

pcc_mmz1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #4

to ：张剑波:

这里有个概念必然要搞清楚。在 对象pascal里，

只有定义（申明）在 "Interface"部分的函数，或其它成员，才能被另个一个单元
引用。
现在你的函数只是在implementation部分实现。但没有在接口部份申明。
故在其它单元是不可能引用 该函数的。
解决的方法有两下。
一是上面那位仁兄说的方法，用DLL。
二是，在interface部分加入函数的申明。如：
new unit后，新增了unit，如下：
unit Unit1;
interface
uses sysutils,winsock;

function Getname: string;
implementation
function Getname: string;
begin
result:='123';
end;
end.

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #5

pcc_mmz1说的对。

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #6

接受答案了.

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #7

有时候生活就这么残酷，只给最好的。
真后悔当初贴子的分开少了，没办法再零分了。
sorry