Zwei Klassen in einer ObjectList

[totti14]

Wow. In 2 Minuten soviele Antworten.
Bei OOP hatte ich schon immer ein Brett vor der Rübe Kommt im Embedded Pascal nicht vor.

Bei meiner Generetic Objectlist wollte ich schon bleiben, da mein Prog so schon läuft.
Ich wollte es nur erweitern.

Ich werde Eure Vorschläge mal probieren.

Danke

Wobei hier hakt es wieder bei mir:

Zitat:

oder erstellst eine (abstrakte) Oberklasse:

Delphi-Quellcode:

   type
TProt = class abstract
    protected
      procedure MachWasAB; virtual; abstract;
    public
      procedure Send(const Buf : Array of byte); virtual; abstract;
      procedure Verarbeite; virtual; abstract;
  end;

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

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

Var
  ClientList: TObjectList<TProt>;

ClientList.Add(TProt2.Create); funzt ja nicht ?
EDIT: Sorry. Das funktioniert ja sogar
Aber jetzt mag er mein MachWasABC in TProt2 nicht. Gibt ja auch nicht in der Basis Klasse.