Mehrere Class helper für eine Basisklasse

[Rollo62]

Hallo zusammen,

ich frage mich wie man mehrere class helper verwalten könnte.

Als Beispiel:

in UnitAbc.pas:

Delphi-Quellcode:

type
  TBaseClassAbc_Helper = class helper for TBaseClass  // Edit: class helper
    Procedure DoAbc;
  end;

in UnitXyz.pas:

Delphi-Quellcode:

type
  TBaseClassXyz_Helper = class helper for TBaseClass     // Edit: class helper
    Procedure DoXyz;
  end;

und in der Anwendung;

Delphi-Quellcode:

uses
    UnitBaseClass, UnitAbc, UnitXyz;


procedure Use;
var
  LBase : TBaseClass;
begin
   
   LBase.DoAbc;  // Das geht so wohl nicht, weil nur ein class helper aktiv ist
   LBase.DoXyz;

   TBaseClassAbc_Helper(LBase).DoAbc;  // Oder könnte man das mit Namespaces iregendwie casten ?
   TBaseClassXyz_Helper(LBase).DoXyz;  

end;

Gäbe es irgendeine "offizielle" Methode dafür, oder geht soetwas gar nicht ?

Rollo

[Der schöne Günther]

Das geht in Delphi leider nicht.

Ein class helper for ... kann immerhin von einem anderen erben und seine Methoden übernehmen. Komischerweise kann ein record helper for ... aber nicht von einem Record-Helper erben.

[Rollo62]

Hallo Günther,

dankesehr für den Tipp, das ist ja immerhin etwas.

Also in der Art:

Delphi-Quellcode:

type
  TBaseClassXyz_Helper = class helper for TBaseClassAbc_Helper 
    Procedure DoXyz;
  end;

So sollte das also funktionieren, muss ich mal checken.


Rollo

[Uwe Raabe]

Zitat von Rollo62:

Also in der Art:

Delphi-Quellcode:

type
  TBaseClassXyz_Helper = class helper for TBaseClassAbc_Helper 
    Procedure DoXyz;
  end;

Nein, so nicht! Aber so (wenn TBaseClass wirklich eine class ist):

Delphi-Quellcode:

type
  TBaseClass = class
    ABC: Integer;
    XYZ: Integer;
  end;

  TBaseClassAbc_Helper = class helper for TBaseClass
    Procedure DoAbc;
  end;

  TBaseClassXyz_Helper = class helper(TBaseClassAbc_Helper) for TBaseClass
    Procedure DoXyz;
  end;

[Rollo62]

Hallo Uwe,

vielen Dank, sieht komisch aus, ist aber so

Rollo