AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Properites mit Enums zusammenfassen

Ein Thema von freimatz · begonnen am 26. Jan 2023 · letzter Beitrag vom 27. Jan 2023
Antwort Antwort
freimatz

Registriert seit: 20. Mai 2010
1.520 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Properites mit Enums zusammenfassen

  Alt 27. Jan 2023, 10:30
Danke Ja sowas in der Art. (Das von Rollo62 funktioniert vielleicht auch, aber sicher nicht für diesen Anwendungszweck.
Erster Knackpunkt war Dein Vorschlag den Aufzählungstyp und die Menge separat anzugeben. Da Delphi keine Contrains auf Enums kenn kann das nur so gehen. Eine "ESet = set of E" geht nicht.
Mein letzter Stand ist der:
Delphi-Quellcode:
type
  TBla = (a, b, c);
  TBlaSet = set of TBla;

  TBlub = (l, m, o, p);
  TBlubSet = set of TBlub;

  TPropGroup<E, S> = class

  private
    FActive : E;
    FSupported: S;
    FAvailable: S;

    procedure SetActive(Value: E);
    function GetActive(): E;
    function GetSupported(): S;
    function GetAvailable(): S;

  public
    property Active : E read GetActive write SetActive;
    property Supported: S read GetSupported;
    property Available: S read GetAvailable;
  end;

  TClient = class
  strict protected
    FBla: TPropGroup<TBla, TBlaSet>;

    function GetBla(): TPropGroup<TBla, TBlaSet>;

  public
    property Bla: TPropGroup<TBla, TBlaSet> read GetBla;
  end;
Letzendlich werde ich es aber wohl lassen. Mit dem Package wo das rein sollte ist Delphi eh schon überfordert. Und ich befürchte mit noch mehr Generics wirds noch schlimmer.
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.749 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Properites mit Enums zusammenfassen

  Alt 27. Jan 2023, 10:48
Da Delphi keine Contrains auf Enums kenn kann das nur so gehen. Eine "ESet = set of E" geht nicht.
Jo. Unelegant, aber anders geht's wohl nicht.

Delphi-Quellcode:
  TClient = class
  strict protected
    FBla: TPropGroup<TBla, TBlaSet>;

    function GetBla(): TPropGroup<TBla, TBlaSet>;

  public
    property Bla: TPropGroup<TBla, TBlaSet> read GetBla;
  end;
Letzendlich werde ich es aber wohl lassen. Mit dem Package wo das rein sollte ist Delphi eh schon überfordert. Und ich befürchte mit noch mehr Generics wirds noch schlimmer.
Ich würde explizit einen Typ pro Enum anlegen: TBlaPropGroup = TPropGroup<TBla, TBlaSet>
Was ich so verstanden habe, reduziert das potentiell den Codebloat durch Generics etwas. Und lesbarer ist's vielleicht auch.
Uli Gerhardt
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz