Operator in If Then Anweisung als Variable möglich ?

[himitsu]

Ich würde den "unterschiedlichen" Typ vielleicht nicht gleich/identisch benennen, wie den Typen der RTL (Rückgabewert von CompareValue).
Aber joar, sie passend aus.


PS: Ohne Umrechnung (+1) könnte es so aussehn, aber über die RTTI hier diesen Enum/Set in einen String umwandeln lassen zu wollen geht dann nicht mehr.

Delphi-Quellcode:

{$MINENUMSIZE 1}  // -1..1 sollte nur ein Byte groß sein (hatte grad keine Luste das mal nachzusehn, aber sollte so sein)
type TValueRelationshipEnum = (equal, greater, less=Byte(-128));

Delphi-Quellcode:

{$MINENUMSIZE 4}  // Integergröße (so groß, wie derartige Verleichtstypen der WindowsAPI)
type TValueRelationshipEnum = (equal, greater, less=Cardinal(-2147483648));