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]