| ShowMessage(''''TChinese.destory''''); end; procedure TChinese.SayHello; begin //inherited; ShowMessage(''''TChinese.SayHello''''); end; procedure TForm1.Button2Click(Sender: TObject); var FMan:TPerson; begin FMan:=TChinese.create; FMan.SayHello; FMan.Free; end; 4、 十、
上一页 [1] [2] [3] [4] [5] |