o := new ca();
o.c := 3; //给对象的属性赋值
return o.c;
type ca = class
  value;
  property c read getc write setc;
  function setc(v); //对象赋值中
  begin
   echo "c的写操作>",tslassigning,"<<<<";
   value:=v;
  end
  function getc();
  begin
   echo "c的读操作>",tslassigning,"<<<<";
   return value;
  end
end