Come posso verificare che un valore rientri in un intervallo con un'istruzione "case" anziché un'istruzione "if"?

Question

La seguente istruzione if può essere convertita in un'istruzione case?

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

---

La mia risposta:

Sì, può

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

È corretto?

Answer 1

Se Numero ha qualche tipo di dati integer, quindi:

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

Answer 2

Una piccola correzione:

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;