德爾福分配條件，對象屬性

Question

我想寫這段代碼在更華麗的方式

if some_condition then 
    checkbox.Checked := true 
else 
    checkbox.Checked := false; 

我想是這樣

checkbox.checked := boolean_value_of_condition_is_met; 

Answer 1

事實上，你可以完全按照自己的想象寫的代碼。例如，使用一個布爾表達式是這樣的：

CheckBox.Checked := SomeValue = 42; 
CheckBox.Checked := SomeValue > 0; 
CheckBox.Checked := SomeBoolean; 
CheckBox2.Checked := not CheckBox1.Checked; 

或通過調用返回這樣的布爾函數：

function GetSomeBooleanValue(Value: Integer): Boolean; 
begin 
    Result := ...; 
end; 

... 

CheckBox.Checked := GetSomeBooleanValue(42); 

Answer 2

只要寫

checkbox.Checked := some_condition; 

some_condition，顧名思義一個布爾值，所以可以分配給checkbox.checked。