如何前导声明一个class?和其他?

phonlee 2003-01-10 03:21:31

{ Forward class declarations }
type
TPart = class ; //-->如此声明为何不行?????
type
PTPart = ^TPart;
type
TPart = class
private
fstrName:string;
fChildList:TList;
protected
public
constructor Create(strName:string = '');
destructor Destroy; virtual;
property Name:string read fstrName;//全部名称:编号+设备类别
//子设备管理
procedure Add(NewPart:^TPart{??????只能用type定义的东西>});virtual;
procedure Remove(NewPart:^TPart);virtual;
//function Iterator<Equipment*>* CreateList();virtual;
end;

//这里是我设计的一个composite的其中的基类
欢迎大家一起讨论设计模式
QQ:5165504

...全文

75 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

diruser 2003-01-10

打赏
举报

d983074 2003-01-10

打赏
举报

type
pClass=^Class //定义类指针变量

在过程和函数的参数声明中，编译器不能识别“^”,必须使用定义过的变量类型（变量类型名称好像只能由字母组成），如pinteger、pchar或自定义变量类型，这里pClass就是自定义变量类型

zwjchina 2003-01-10

打赏
举报

规定的语法，没有什么为什么。
你可以看看Obect pascal语言的说明

type
PClass = ^Class//是声明一个类型

phonlee 2003-01-10

打赏
举报

过程参数里面不能使用^这个dd ??? 为什么??

type
pClass=^Class //到底作什么了??

phonlee 2003-01-10

打赏
举报

过程参数里面不能使用^这个dd ??? 为什么??

type
pClass=^Class //到底作什么了??

zwjchina 2003-01-10

打赏
举报

哦，那我搞错了，呵呵！
过程参数里面不能使用^这个dd
呵呵，但是并不是说不在type里面声明就不能在过程中使用
例如：
procedure Add(a:array of byte);

我搜索了一下你的帖子，好象这是第一个！
你不要不给分我哦，55~~

phonlee 2003-01-10

打赏
举报

to zwjchina(蒲石)
procedure Add(NewPart:^TPart);virtual;
不能通过;

[Error] Composite.pas(27): Identifier expected but '^' found;

zwjchina 2003-01-10

打赏
举报

sorry ,写错了
应该是procedure Add(NewPart:PTPart);virtual;

zwjchina 2003-01-10

打赏
举报

这一句当然还可以写成
procedure Add(NewPart:PPart);virtual;
或者你不怕麻烦也可以写成：
procedure Add(NewPart:Pointer);virtual;
这种写法使用时要进行强制转换。

过程参数可以不使用在type中定义的类型,你的写法当然是可以

phonlee 2003-01-10

打赏
举报

我还有第二个问题:
procedure Add(NewPart:^TPart{??????只能用type定义的东西
>});virtual

zwjchina 2003-01-10

打赏
举报

除了第一个type外，把你后面的type都去掉，如下：

{ Forward class declarations }
type
TPart = class ; //-->如此声明为何不行?????
//^^^^^^^^^^^^^上面这一句也可以不要。

PTPart = ^TPart;

TPart = class
private
fstrName:string;
fChildList:TList;
protected
public
constructor Create(strName:string = '');
destructor Destroy; virtual;
property Name:string read fstrName;//全部名称:编号+设备类别
//子设备管理
procedure Add(NewPart:^TPart{??????只能用type定义的东西
>});virtual;
procedure Remove(NewPart:^TPart);virtual;
//function Iterator<Equipment*>* CreateList();virtual;
end;

随着年龄逐步增大，体力精力透支严重和中年职场危机来临，从技术出身要么转型管理，要么转型售前，在云计算、大数据时代，更需要技术型售前，而不是关系型售前，作为技术型售前能和研发更好地进行沟通，这是一个比较好的转型途径。但在与客户的接触中发现，纯技术思维是有一定缺陷的。方案太过于偏重技术细节，让客户似懂非懂，云里雾里，客户答疑没有切入客户痛点，刚需点。掌握的知识广度不够，往往自己懂但说不出，不形象，缺乏感染力和影响力，没有总结提炼。本课程作为技术转型售前前导课程，将拨开重重迷雾，帮助同仁尽快跨越技术转型售前之路，主要分享以下内容： 1、售前岗位的定位及售前的本质？2、售前管理全景图及售前工作的三个层面？3、从技术到售前的八大思维模式转变？4、售前在投标项目各阶段的使命和作用？5、售前体系构建及售前队伍的建设与培养？为了更好的学习本课程并达到良好的效果，建议同时学习智慧城市《售前管理》、《行业方案》和《城市大脑》系列相关课程，并请持续关注后续课程，谢谢。