Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Anzahl der Werte in eigenem Typ ermitteln? (https://www.delphipraxis.net/68085-anzahl-der-werte-eigenem-typ-ermitteln.html)

Angel4585 24. Apr 2006 14:11


Anzahl der Werte in eigenem Typ ermitteln?
 
Hallo zusammen,

wie kann ich die Anzahl der Werte in einem eigenen Typ ermitteln?

Also ich habe folgenden Typ:
Delphi-Quellcode:
TMyOwnTyp = (motWert1,motWert2,..,motWertn);
Wie bekomm ich jetzt die Anzahl der Werte, in diesem Fall den Wert n?

SizeOf funktioniert zu meinem Erstaunen nicht, Length ist auch nicht dafür gemacht.
Was gibts da noch?

MfG :angel:

Kroko1999 24. Apr 2006 14:12

Re: Anzahl der Werte in eigenem Typ ermitteln?
 
High(Typ)-Low(Typ);

Die Muhkuh 24. Apr 2006 14:15

Re: Anzahl der Werte in eigenem Typ ermitteln?
 
[Fehler] Operator ist auf diesen Operandentyp nicht anwendbar

;)

Angel4585 24. Apr 2006 14:17

Re: Anzahl der Werte in eigenem Typ ermitteln?
 
Zitat:

Zitat von Spider
[Fehler] Operator ist auf diesen Operandentyp nicht anwendbar

;)

Jupp habbich au

Kedariodakon 24. Apr 2006 14:19

Re: Anzahl der Werte in eigenem Typ ermitteln?
 
Delphi-Quellcode:
Ord( High( TMyOwnTyp ) ) - Ord( Low( TMyOwnTyp ) )
Aber das unsinnig, da man jeden Teil einen eigenen Wert zuweisen kann und man somt "Löcher" hat...

Bye Keda

Hawkeye219 24. Apr 2006 14:22

Re: Anzahl der Werte in eigenem Typ ermitteln?
 
Hallo,

hier steht die Lösung.

Gruß Hawkeye

himitsu 24. Apr 2006 14:31

Re: Anzahl der Werte in eigenem Typ ermitteln?
 
Werte vergeben? ... also nicht in jeder Delphiversion :zwinker: (in D3 ist das z.B. nicht möglich)

Und wenn man die Werte nicht vordefiniert, dann reicht auch ein
Delphi-Quellcode:
Ord(High(TMyOwnTyp)) + 1


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:52 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