GoodHope: 忘记写答案了。constructor是有返回值的,要不然怎么赋值的。不过返回值是Self而不是Result,这点OP手册上好像都没提过,so可以这样: [阅读: 646] 2004-12-08 09:17:30 constructor TOne.Create; begin Self.Free; Self := TAnother.Create; end;