haitao: 这样就行了 [阅读: 405] 2005-11-29 09:03:29 type Tmtype=record mytype:Tclass; a:integer; b:string; ... end;