Zugriff auf Aufzählungstyp mittels Variabler

[niederrheiner]

Hallo an Alle,

ich habe hier einen Aufzählungstyp monat = (Januar, ... Dezember).
In einer Stringvariablen habe ich den Namen eines Monats, z.B. Februar. Nun würde ich gerne mit imonat := ord(smonat) + 1; die Monatszahl ermitteln. Diese Vorgehensweise sagt aber der Compiler wäre falsch.
Wie muss es richtig lauten?

Danke für Eure Hilfe und Tipps.

Bis dann ...
MfG
Günter

[Christian]

:= longmonthnames[Integer(Februar)];

caste deinen Aufzählingstyp nach Integer.

Monatsnamen sind übrigends schon aus der fcl verfügbar.

[mschnell]

Geht vielleicht inc (smonat) ?

smonat := monat(ord(smonat)+1);

In Delphi kann man mit RTTI die Namen der Ausprägungen eines Aufzählungstyps in einen String bekommen, ohne zusätzlich ein Array von Strings anlegen zu müssen. Ich vermute in Lazarus geht das auch.

-Michael

[theo]

Das geht ja wirklich! Wusste ich gar nicht. Danke mschnell.

uses typinfo

Edit1.Text:=GetEnumName(TypeInfo(monat), 1);

[niederrheiner]

Hallo an Alle,
danke ersteinmal an alle, die mir auf meine Frage geantwortet haben. Die Lösung des Problems lag in der folgenden Anweisung:

iMonat := GetEnumValue(TypeInfo(Monat),sMonate) + 1;

BTW. welches Delphi-Buch hilft mir am Besten beim Erlernen von Lazarus?

Danke für Eure Hilfe und Tipps.

Bis dann ...
MfG
Günter