剖析Delphi中的多态

领测软件测试网

    procedure startWorking;override;
  end;

  TDocManager=class(TEmployee)  //文管
  public
    procedure startWorking;override;
  end;
procedure TProgramer.startWorking;
begin
  showmessage(’coding’);
end;

{ TbusinessMan }

procedure TbusinessMan.startWorking;
begin
  showmessage(’Linking Business’);
end;

文章来源于领测软件测试网 https://www.ltesting.net/