5,386
社区成员
发帖
与我相关
我的任务
分享奇怪？为什么我不能使用Assign方法？
对象的复制不能使用Assign方法，这是什么原因？TObject类中并没有Assign方法,这个Assign方法是不是要自己编写的？我的程序如下：
type
x=class(TObject)
d:integer;
end;
var
obj1,obj2:x;
begin
obj1:=x.create;
obj2:=x.create;
obj1.d:=5;
obj2.d:=4;
obj2.Assign(obj1); {编译到此失败了，原因:未命名的标识符Assign.}
end;
编程小子
type
x=class(TObject)
d:integer;
end;
var
obj1,obj2:x;
begin
obj1:=x.create;
obj2:=x.create;
obj1.d:=5;
obj2.d:=4;
obj2.Assign(obj1); {编译到此失败了，原因:未命名的标识符Assign.}
end;
编程小子
...全文
请发表友善的回复…
发表回复
delphizhao 2000-07-12
- 打赏
- 举报
TPersistent以下的类才有Assign方法
meijg 2000-07-08
- 打赏
- 举报
tobject没有assign方法，可以试试TPersistent类，其有Assign方法
