Abstrakte Methode mit Enum -> Unterschiedliche Definitionen

[himitsu]

Mit gleichnamigen Enums

Delphi-Quellcode:

{$SCOPEDENUMS ON}

type
  TSrvCmd1 = (Command1, Command2);
  TSrvCmd2 = (Command1, Command2, Command3, Command4, Command5);

DoOnServerCommand(TSrvCmd1.Command1, xxx);

oder ein Subset der Selben

Delphi-Quellcode:

type
  TSrvCmd2 = (Command1, Command2, Command3, Command4, Command5);
  TSrvCmd1 = Command1..Command2;