Delphi Check Variablenwert in Typ Deklaration

Question

Wie kann ich feststellen, ob der Wert einer Variablen im Bereich einer Typdeklaration liegt? Bsp.

Type 
    TManagerType = (mtBMGR, mtAMGR, mtHOOT); 

... 

var 
    ManagerType: TManagerType; 

.... 


procedure DoSomething; 
begin 
    if (ManagerType in TManagerType) then 
    DoSomething 
    else 
    DisplayErrorMessage; 
end; 

Danke, Pieter.

Answer 1

InRange: Boolean; 
ManagerType: TManagerType; 
... 
InRange := ManagerType in [Low(TManagerType)..High(TManagerType)]; 

---

Wie Nickolay O. bemerkt - während boolean Ausdruck oben direkt entspricht:

(Low(TManagerType) <= ManagerType) and (ManagerType <= High(TManagerType)) 

Compiler nicht führen Sie die Optimierung bei der Überprüfung der Mitgliedschaft gegen sofortiges Set basierend auf einzelnen Teilbereich. So wird [reif] optimierter Code weniger elegant sein.

Answer 2

sollten Sie überprüfen, dies über: wenn mtype> Hoch (TManagerType) then ...

Answer 3

Nun, eine Variable vom Typ TManagerType muss in diesem Bereich sein, da Pascal-Typen so funktionieren. Der einzige Weg, der es nicht sein könnte, ist, wenn Sie etwas Unartiges hinter dem Rücken des Compilers getan haben.

Eine weitere Möglichkeit, zu schreiben sein würde:

InRange(ord(ManagerType), ord(low(ManagerType)), ord(high(ManagerType)))