Virtuelle Methode überladen

[samso]

Falls Du DoSomething nur zusätzlich mit einem Parameter versehen willst, braucht sie nicht virtuell zu sein:

Delphi-Quellcode:

  TClass1 = class
  public
    procedure DoSomething; overload; 
  end;

  TClass2 = class(TClass1)
  public
    procedure DoSomething(AText : String); overload;
  end;

Falls Du später auch noch überladen willst, ist das so möglich:

Delphi-Quellcode:

  TClass1 = class
  public
    procedure DoSomething; overload; virtual; 
  end;

  TClass2 = class(TClass1)
  public
    procedure DoSomething(AText : String); overload;
  end;