pcplayer · 2006-02-13 07:06:34 · 阅读: 437 TChe=class; TZiXingChe=class(TChe); TBus=class(TChe); TTax=class(TChe); TChe=class public procedure Ride;virture;abstract; end;