Teil einer Klasse in einer abgeleiteten Klasse umdefinieren

[changlee]

Hallo,

ich habe schon wieder eine Frage. Ich hoffe hiernach kann ich mal längere Zeit problemlos weitermachen.

Also ich möchte eine Klasse definieren:

Delphi-Quellcode:

TList = class
  private
    fFilename : AnsiString;
    fLength   : integer;
    fItems    : array of TMsgDataSet;
    fLocked   : boolean;
  public
    property Filename : string  read fFilename write fFilename;
    property Length   : integer read fLength   write fLength;
    property Locked   : boolean read fLocked;
    procedure Add(MsgNr:integer; Msg:TIdMessage; MsgSize:cardinal);
    procedure Delete(MsgNr:integer);
    procedure LoadFromHd; virtual;
    procedure SaveToHd; virtual;
    procedure Lock;
    procedure Unlock;
  end;

Diese Klasse möchte ich aber nie direkt benutzen, sondern ich werde weitere Klassen von dieser Ableiten, die bis auf die Methoden "LoadFromHD" und "SafeToHD" sowie den Typ von fItems identisch sind. Die Methoden, die überall gleich sind, möchte ich in der Hauptklasse definieren, z.B. "Delete()". Delete muss auf fItems zugreifen, deshalb muss ich fItems auch in der Hauptklasse definieren. fItems ist immer ein dynamisches Array, aber nicht immer vom Typ TMsgDataSet. Der genaue Typ wird erst in einer abgeleiteten Klasse definiert.

Wie kann ich denn das realisieren?

Viele Grüße
Stefan.