delphi - 「if」ステートメントの代わりに「case」ステートメントを使用して、値が範囲内にあるかどうかをテストするにはどうすればよいですか?

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;