类嵌套定义的问题(50分)

A

anick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-02

• #1

我想实现代码如下：
type tclient = class(tclientsocket)
parent : mthread;
other : string;
end;

type mthread = class(tthread)
aclient : tclient;
.............
.............
end;

我记得似乎有什么办法的，好像以前都解决过，怎么搜都搜不出来了。
我现在只想嵌套定义，不能搞成一个，希望高手给与解决方法！同样在线等待！

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-02

• #2

可以这样
type tclient = class(tclientsocket) <<-- 先声明，后定义

type mthread = class(tthread)
aclient : tclient;
.............
.............

type tclient = class(tclientsocket)
parent : mthread;
other : string;
end;

end;

 

A

anick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-03

• #3

不行啊，说重复定义了，急啊

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-03

• #4

type tclient = class;
type mthread = class(tthread)
aclient : tclient;
.............
.............

type tclient = class(tclientsocket)
parent : mthread;
other : string;
end;

 

A

anick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-03

• #5

[Error] Unit1.pas(21): Type 'tclient' is not yet completely defined

楼上的，提示定义不完全

 

A

anick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-03

• #6

终于搜到以前的帖子了，正确的格式应该是：
type
tclient = class;

mthread = class(tthread)
aclient : tclient;
.............
.............
end;

tclient = class(tthread)
parent : mthread;
other : string;
end;

的确是很简单，希望以后的朋友能够搜到，所以我在此更正，谢谢楼上的两位朋友！

 

A

anick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-03

• #7

多人接受答案了。