类变量间的赋值

Question

type
   myclass1 = class
       name: string;
       name2: string;
   end;
var
  myclassvar1,myclassvar2 :myclass1;
begin
  myclassvar1:=myclass1.create;
  myclassvar1.name:='xy';
  //myclassvar2:=myclassvar1//????????????????????????????
  myclassvar1.free
end;谢谢，请帮忙。

Answer 1

myclassvar2.name:=myclassvar1.name;
myclassvar2.name2:=myclassvar1.name2;

Answer 2

myclassvar2.name:=myclassvar1.name;
myclassvar2.name2:=myclassvar1.name2;

Answer 3

类对象变量是一个指针，象你那样直接赋值给另一个对象，那其中一个对象执行free函数后，这一块区域就释放了，再调用另一个对象就会出错。应该构造两个对象，然后一个个进行赋值。个人理解~

Answer 4

问题是这条指令（myclassvar2:=myclassvar1）无法执行

Answer 5

myclassvar2:=myclassvar1;可以执行啊，执行完同时指向一片区域。