Làm cách nào để kiểm tra giá trị nằm trong phạm vi có tuyên bố "trường hợp" thay vì câu lệnh "if"?

Question

Câu lệnh if sau đây có thể được chuyển thành câu lệnh trường hợp không?

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

---

trả lời của tôi:

Có nó có thể

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

Đây có phải là đúng?

Answer 1

Nếu Số có một số kiểu dữ liệu số nguyên, sau đó:

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

Answer 2

Một sự điều chỉnh nhỏ:

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;