Einzelnen Beitrag anzeigen

OsCor

Registriert seit: 1. Jan 2009
Ort: Kenzingen, Südbaden
99 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Verwendung von Aufzählungstypen

  Alt 16. Feb 2011, 08:30
Tut mir leid, dass ich das gestern zu ungenau ausgedrückt habe. Es soll die Häufigkeit des Auftretens von Mitgliedern der Kategorien A, B etc. herausgefunden werden.

KategorieA
- Unterkategorie Aa
- Unterkategorie Ab
- Unterkategorie Ac
...
KategorieB
- Unterkategorie Ba
- Unterkategorie Bb
- Unterkategorie Bc
...
Tritt also Unterkategorie Ba auf, soll die Häufigkeit der Kategorie B um 1 erhöht werden usw.

Lösen wollte ich so:

type TUnterA = (Unterkategorie Aa, Unterkategorie Ab, Unterkategorie Ac);
type TUnterB = (Unterkategorie Ba, Unterkategorie Bb, Unterkategorie Bc);
.
.
case KatString of
Unterkategorie Aa, Unterkategorie Ab… : Inc(Häufigkeit KategorieA);
Unterkategorie Ba, Unterkategorie Bb… : Inc(Häufigkeit KategorieB);

@Sir Rufo
GetEnumValue war mir noch nicht bekannt. Die Anzahl der möglichen Kombinationen ist übrigens bekannt.

Ich möchte einfach eine unübersichtliche If...then-Orgie vermeiden.

Ich hoffe, es ist jetzt klarer.

Oswald
  Mit Zitat antworten Zitat