如何把一个类的实例传给他创建的类？
rt！
[解决办法]
??
procedure a(object: TObject);
begin
end;
a(TObject.crate);
??
[解决办法]
self即指向当前对象本身
[解决办法]
说明白一点？
NewInstance
[解决办法]
如何把一个类的实例传给他创建的类？
--------------------------
"他 "是谁? 类? 实例?
if 他==实例 then 实例创建类 请举一例
if 他==实例 then assignto
