GetEnumValue in D5 ?

[st2000]

Hallo,

weiss jemand, ob es die Anweisung GetEnumValue auch in D5 gibt ? Die wird im ObjPascal-CodeLibrary erwähnt ('Strings in CASE verwenden') :

Delphi-Quellcode:

TSuchmaschine(GetEnumValue(TypeInfo(TSuchmaschine), 'tcv_' + S))

Sucht offenbar den Bezeichner eines Enum-Elements raus, wenn man den Pointer auf den Enum-Typ (TypeInfo) und den Vergleichsstring liefert.

Oder gibts das in D5 unter anderem Namen ?

Gruss,
ST2000

[CalganX]

Hi,
wenn es dir darum geht Case-Abfragen mit Strings zu nutzen, dann solltest du den zweiten Beitrag von d3g verwenden.

Allerdings kann ich dir leider auch nicht sagen, wie das unter Delphi 5 heißt. Aber soweit ich mich erinnern kann, habe ich den Source auch unter D5 geschrieben... :gruebel:

Chris

[Christian Seehase]

Moin ST2000,

GetEnumValue ist in D5 in der unit TypeInfo enthalten.

[EDIT]
Ich seh' gerade, dass Du die Enterprise Version hast.
Da könntest Du in so einem Falle im Sourcen Verzeichnis nach den Sourcen suchen, in denen solche Funktionen enthalten sind.
[/EDIT]

[st2000]

Stimmt, in den Sourcen ist es drin. Da muss ich ja nochmal checken, warum D5 es nicht kennt. In der Uses ist die Unit auch drin.
Das blöde ist, das der Code in der Source Assembler-Code ist. Werd mal ein Buch zur Hand nehmen und mich dunkel erinnern.... :drunken:

Gruss,
ST2000