Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
3.916 Beiträge
 
Delphi 12 Athens
 
#1

Mehrere Class helper für eine Basisklasse

  Alt 26. Jan 2017, 08:16
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

Geändert von Rollo62 (26. Jan 2017 um 08:34 Uhr)
  Mit Zitat antworten Zitat