delphi为对象属性分配条件

Question

我想以更漂亮的方式编写这段代码

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

我想要像

这样的东西

checkbox.checked := boolean_value_of_condition_is_met;

Answer 1

您确实可以完全按照您的想象编写代码。例如，使用像这样的布尔表达式：

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

...

CheckBox.Checked := GetSomeBooleanValue(42);

或通过调用返回如下布尔值的函数：

<key>FIRMessagingAutoRegisterEnabledflag</key>
    <true/>
<key>FirebaseAppDelegateProxyEnabled</key>
    <false/>

Answer 2

只需写下

checkbox.Checked := some_condition;

根据定义，

some_condition是一个布尔值，因此可以分配给checkbox.checked。