F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
除了可以用类本身的Create方法创建类实例外，还有其它办法创建对象吗
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
B
beta
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以给你的类写一个类方法，不过里面还是要调用 Create：）
或者你完全自己实现，反正 Create 中该有的步骤肯定跑不了。
或者你完全自己实现，反正 Create 中该有的步骤肯定跑不了。
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to beta
那不是一样吗，我就是不想通过Create方法创建对象
那不是一样吗，我就是不想通过Create方法创建对象
W
wr960204
Unregistered / Unconfirmed
GUEST, unregistred user!
type
pa=^ta
Ta=object
public
fstr:string;
end;
new(pa);
pa.fstr:='aaa';
dispose(pa);
pa=^ta
Ta=object
public
fstr:string;
end;
new(pa);
pa.fstr:='aaa';
dispose(pa);
春
春意
Unregistered / Unconfirmed
GUEST, unregistred user!
思考问题过分深渊！！！
卡
卡色
Unregistered / Unconfirmed
GUEST, unregistred user!
我想问怎样才能不用DEGIN ，END谁知道，好象有人说用C吧！
干嘛要绕弯弯呢！
不过有搞科学的精神！
干嘛要绕弯弯呢！
不过有搞科学的精神！
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
复制已创建的实例！
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to 春意
你只是没用到
你只是没用到
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
因为以下原因我才有这样的想法:
我在delphi6中建一个事务对象，又加入一个本地数据模块。
但是在事务对象中动态创建数据模块时报"不支持此接口"的错误，非常奇怪。
代码如下：
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
procedure Initialize override;
end;
procedure MyInterface.initialize
begin
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;
我在delphi6中建一个事务对象，又加入一个本地数据模块。
但是在事务对象中动态创建数据模块时报"不支持此接口"的错误，非常奇怪。
代码如下：
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
procedure Initialize override;
end;
procedure MyInterface.initialize
begin
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;
D
dedema
Unregistered / Unconfirmed
GUEST, unregistred user!
给这个类新加一个constructor，然后就可以用这个新的构造器新建一个对象的。
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to dedema
如何实现，可给个例子吗
如何实现，可给个例子吗
H
huawdg
Unregistered / Unconfirmed
GUEST, unregistred user!
说说你不用create的道理
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to huawda
已经说了，在上面
已经说了，在上面
B
beta
Unregistered / Unconfirmed
GUEST, unregistred user!
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
constructor Create(AOwner: TObject
AApplication: TApplication)
override;
end;
constructor MyInterface.Create(AOwner: TObject
AApplication: TApplication);
begin
MyDatMod := TDataModule1.Create(AApplication);//创建数据模块
end;
private
MyDataMod: TDataModule1;//本地数据模块
public
constructor Create(AOwner: TObject
AApplication: TApplication)
override;
end;
constructor MyInterface.Create(AOwner: TObject
AApplication: TApplication);
begin
MyDatMod := TDataModule1.Create(AApplication);//创建数据模块
end;
N
ndch
Unregistered / Unconfirmed
GUEST, unregistred user!
不管什么办法，其最终，我想还是要调用create方法（除非你的create不叫这个名字）。看不懂上面的问题。
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to beta
好象不能重载Create方法
好象不能重载Create方法
B
beta
Unregistered / Unconfirmed
GUEST, unregistred user!
啊？不会吧。那你直接隐藏它：
constructor Create(AOwner: TObject
AApplication: TApplication)
// 后面不要东西
然后
constructor MyInterface.Create(AOwner: TObject
AApplication: TApplication);
begin
inherited(AOwner);
MyDatMod := TDataModule1.Create(AApplication);//创建数据模块
end;
constructor Create(AOwner: TObject
AApplication: TApplication)
// 后面不要东西
然后
constructor MyInterface.Create(AOwner: TObject
AApplication: TApplication);
begin
inherited(AOwner);
MyDatMod := TDataModule1.Create(AApplication);//创建数据模块
end;
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to beta
不行
不行
F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
to beta
象你那样，当创建Com+对象事，Create方法是不会被执行的
象你那样，当创建Com+对象事，Create方法是不会被执行的
B
beta
Unregistered / Unconfirmed
GUEST, unregistred user!
报什么错误？