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