Integer in Enumeration umwandeln

**xZise**

Wie kann ich den Index einer Enumeration in eine Enumeration und wieder zurück umwandeln?

Delphi-Quellcode:

			TEnum = (eFirst, eSecond, eThird);

Enum : TEnum;

Bei 0 sollte er in Enum "eFirst" stehen haben und so weiter.

**DeddyH**

zusammenfalten · markieren

Delphi-Quellcode:

			type TEnum = (rot, gruen, blau);

var Enum: TEnum;

    iIndex: integer;

begin

  Enum := TEnum(2);

  case Enum of

    rot: ShowMessage('rot');

    gruen: ShowMessage('grün');

    blau: ShowMessage('blau');

  end;

  iIndex := integer(TEnum(Enum));

  ShowMessage(inttostr(iIndex));

end;

**xZise**

Und wenn ich jetzt ein Integer habe: Wie kriege ich den in die Numeration?

**jfheins**

Nach emum casten?

enumvar = TEnum(intvar);

**Ghostwalker**

Umwandlung Enum->Integer:

markieren

Delphi-Quellcode:

			var

  idx : integer;

begin

  idx := ord(eSecond);

end;

Umwandlung Integer->Enum:

markieren

Delphi-Quellcode:

			var

  enum : TEnum;

  idx : integer;

begin

  idx := 2;

  Enum := TEnum(idx);

end;

**DeddyH**

Naja, bis auf die Verwendung von Ord hatte ich das doch in meinem Beispiel. War das so missverständlich?

**Ghostwalker**

Nein...hab das doch lediglich mal Zusammengefasst...so für den "Auf-Einen-Blick"-Gucker

Und ord ist hier die effizientere Methode, da der Cast wegfällt. Funktionieren sollten beide Varianten

**SirThornberry**

Zitat von Ghostwalker:

Nein...hab das doch lediglich mal Zusammengefasst...so für den "Auf-Einen-Blick"-Gucker

Und ord ist hier die effizientere Methode, da der Cast wegfällt. Funktionieren sollten beide Varianten

falsch, ein Cast ist effizenter. Denn bei einem Cast wird dem Compiler verklickert wie er das Stück Speicher anzusehen hat. Ord hingegen ist eine Funktion. Und würde hier die Compilermagic nicht greifen (sofern sie das tut) würde bei einem Funktionsaufruf erst etwas auf den Stack gepackt etc.

**marabu**

Hallo,

in dem Thread scheint es um das gleiche Thema zu gehen:

klick

Grüße vom marabu

**Khabarakh**

Zitat von SirThornberry:

(sofern sie das tut)

Tut sie, denn wie sollte Ord als normale Funktion aussehen (mal ganz abgesehen vom variablen Parameter- und Rückgabetyp)? Es könnte ja nicht viel Sinnvolleres drinstehen als einfach ein Cast, also kommt in der fertigen Übersetzung bei beiden Methoden der gleiche Asm-code heraus: überhaupt keiner

(wie du für den harten Typecast ja schon gesagt hast).

Integer in Enumeration umwandeln

Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Re: Integer in Enumeration umwandeln

Forumregeln

xZise Registriert seit: 3. Mär 2006 Ort: Waldbronn 4.303 Beiträge Delphi 2009 Professional	#1 Integer in Enumeration umwandeln 12. Sep 2007, 15:13 Wie kann ich den Index einer Enumeration in eine Enumeration und wieder zurück umwandeln? markieren Delphi-Quellcode: TEnum = (eFirst, eSecond, eThird); Enum : TEnum; Bei 0 sollte er in Enum "eFirst" stehen haben und so weiter. Fabian Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
	Zitat

xZise Registriert seit: 3. Mär 2006 Ort: Waldbronn 4.303 Beiträge Delphi 2009 Professional	#3 Re: Integer in Enumeration umwandeln 12. Sep 2007, 15:30 Und wenn ich jetzt ein Integer habe: Wie kriege ich den in die Numeration? Fabian Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
	Zitat

jfheins Registriert seit: 10. Jun 2004 Ort: Garching (TUM) 4.579 Beiträge	#4 Re: Integer in Enumeration umwandeln 12. Sep 2007, 15:40 Nach emum casten? enumvar = TEnum(intvar);
	Zitat

Ghostwalker Registriert seit: 16. Jun 2003 Ort: Schönwald 1.299 Beiträge Delphi 10.3 Rio	#5 Re: Integer in Enumeration umwandeln 12. Sep 2007, 15:49 Umwandlung Enum->Integer: markieren Delphi-Quellcode: var idx : integer; begin idx := ord(eSecond); end; Umwandlung Integer->Enum: markieren Delphi-Quellcode: var enum : TEnum; idx : integer; begin idx := 2; Enum := TEnum(idx); end; Uwe e=mc² or energy = milk * coffee²
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#6 Re: Integer in Enumeration umwandeln 12. Sep 2007, 15:59 Naja, bis auf die Verwendung von Ord hatte ich das doch in meinem Beispiel. War das so missverständlich? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Ghostwalker Registriert seit: 16. Jun 2003 Ort: Schönwald 1.299 Beiträge Delphi 10.3 Rio	#7 Re: Integer in Enumeration umwandeln 12. Sep 2007, 16:04 Nein...hab das doch lediglich mal Zusammengefasst...so für den "Auf-Einen-Blick"-Gucker Und ord ist hier die effizientere Methode, da der Cast wegfällt. Funktionieren sollten beide Varianten Uwe e=mc² or energy = milk * coffee²
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#9 Re: Integer in Enumeration umwandeln 12. Sep 2007, 16:33 Hallo, in dem Thread scheint es um das gleiche Thema zu gehen: klick Grüße vom marabu
	Zitat