możliwość sprawdzenia, czy wartość jest w zbiorze

Question

Mam następujący kod. Wygląda to paskudnie, jeśli wartość równa się jednej z następujących wartości, a następnie coś zrobić.

var 
    Value: Word; 
begin 
    Value := 30000; 
    if (Value = 30000) or (Value = 40000) or (Value = 1) then 
    do_something; 
end; 

chcę byłaby kodu w następujący sposób:

var 
    Value: Word; 
begin 
    Value := 30000; 
    if (Value in [1, 30000, 40000]) then // Does not work 
    do_something; 
end; 

Jednak refactored kod nie działa. Zakładam, że poprawny zestaw w Delphi akceptuje tylko elementy z bajtem typu. Jeśli jest jakaś dobra alternatywa dla refaktoryzacji mojego oryginalnego kodu (poza przypadkiem użycia)?

Answer 1

Myślę, że coś takiego?

case value of 
    1, 30000, 40000: do_somthing 
end; 

Answer 2

Co powiesz na używanie otwartej tablicy?

function ValueIn(Value: Integer; const Values: array of Integer): Boolean; 
var 
    I: Integer; 
begin 
    Result := False; 
    for I := Low(Values) to High(Values) do 
    if Value = Values[I] then 
    begin 
     Result := True; 
     Break; 
    end; 
end; 

Przykład (pseudo-kod):

var 
    Value: Integer; 
begin 
    Value := ...; 
    if ValueIn(Value, [30000, 40000, 1]) then 
    ... 
end; 

Answer 3

Istnieje pewna klasa większych bitsets patrz Classes.TBits.

Podczas gdy nie będzie to robić wyrażeń stałych z łatwością, może być użyteczne w niektórych innych przypadkach.