Zwei Klassen in einer ObjectList

[dominikkv]

Ich würde das ganze über Ableitungen lösen:

Delphi-Quellcode:

Type
  TBasicProt = class(TObject)
  public
    procedure Send(const Buf : Array of byte); virtual; abstract;
    procedure Verarbeite; virtual; abstract;   
  end;

  TProt1 = class(TBasicProt)
    private
      procedure MachWasAB;
    public
      constructor create;
      procedure Send(const Buf : Array of byte); override;
      procedure Verarbeite; override;
  end;

  TProt2 = class(TBasicProt)
    private
      procedure MachWasABC;
    public
      constructor create;
      procedure Send(Const Buf : Array of Byte); override;
      procedure Verarbeite; override;
  end;

Var
  ClientList: Array of TBasicProt; // oder auch eine andere Liste