Jak mogę przetestować, czy wartość jest w zakresie z instrukcją "case", a nie "if"?

Question

Czy następująca instrukcja if może zostać przekonwertowana na instrukcję case?

if (Number >= 5) and (Number <= 10) then 
    lblAnswer.Caption := 'in range' 
else 
    lblAnswer.Caption := 'out of range'; 

---

Moja odpowiedź:

Tak może

case (number >= 5) and (Number <= 10) of 
    lblAnswer.Caption := 'in range'; 
    lblAnswer.Caption := 'out of range'; 
end; 

Czy jest to prawidłowe?

Answer 1

czy numer ma jakiś typ danych Integer, a następnie:

case number of 
5 .. 10: lblAnswer.Caption := 'in range'; 
else  lblAnswer.Caption := 'out of range'; 
end; 

Answer 2

Mała korekta:

case (number >= 5) and (Number <= 10) of 
    true:lblAnswer.Caption := 'in range'; 
    false:lblAnswer.Caption := 'out of range'; 
end; 

Answer 3

Function InRange (Lo,Hi,Val : Integer) : Boolean; 
Begin 
Result := (Val>=Lo)And(Val<=Hi); 
End;