Как я могу проверить, что значение находится в диапазоне с оператором "case" вместо оператора "if"?

Question

Может ли следующий оператор if быть преобразован в оператор case?

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

---

Мой ответ:

Да, может

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

Это правильно?

Answer 1

Если Number имеет некоторый целочисленный тип данных, то:

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

Answer 2

Небольшая коррекция:

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;