Wie Event-Handler der gemeinsamen Basisklasse auseinanderhalten?

[ChrisE]

Hallo,

man könnte die Registerprozeduren auf eine Klasse anstatt eine Methode definieren (z.B. TObjectList zur Verwaltung). TBase müsste dann Methode bereitstellen zur Informierung der Klasse sowie evtl. eine Methode für SollInformiert werden. Diese können ja in TBase abstract bleiben und in TSpecX implementiert werden.

PseudoCode:

Delphi-Quellcode:

//...
FMyList := TObjectList.Create(FALSE); //  OwnsObjects auf false setzten
//...
TMain.RegisterBaseClass(ABase: TBase);
var
  ind: Integer;
begin
  ind := FMyList.IndexOf(ABase);
  if ind <> -1 then 
  begin
    FMyList.Add(ABase);
  end;
end;
end;

TMain.UnregisterBaseClass(ABase: TBase);
var
  ind: Integer;
begin
  ind := FMyList.IndexOf(ABase);
  if ind <> -1 then 
  begin
    FMyList.Delete(ABase);
  end;
end;

TMain.AlleInformieren;
var
  i: Integer;
begin
  for i := 0 to FMyList.Count -1 do
  begin
    base := TBase(FMyList[i]);
    if base.SollInformiertWerden then
    begin
      base.Info(<Parameter>);
    end;
  end;
end;

Ungetestet

Gruß, Chris