如何在delphi XE和XE4中初始化对象

发布时间：2020-12-15 04:23:09 所属栏目：大数据来源：网络整理

导读：我上课了 type TLoadOption = class private FAutoSearch: Boolean; public property AutoSearch: Boolean read FAutoSearch write FAutoSearch; end; 在其中一个函数中,我在堆栈中创建类的对象 procedure MyView.InitializeForm(const aMsg: MyMsg);//-----

我上课了

type
  TLoadOption = class
  private
    FAutoSearch: Boolean;
  public
    property AutoSearch: Boolean read FAutoSearch write FAutoSearch;
  end;

在其中一个函数中,我在堆栈中创建类的对象

procedure MyView.InitializeForm(const aMsg: MyMsg);
//---------------------------------------------------------------------------
var
  Options: TLoadOption;
begin

  if aMsg.OptionalObject <> nil then
   Options := aMsg.OptionalObject as TLoadOption;

  if Assigned(Options) and Options.AutoSearch then
    DoRefresh;
end;

我没有在aMsg中传递任何内容,所以理想情况下没有设置选项.

在Delphi XE中默认选项设置为nil,因此不会调用此DoRefresh但是当我在Delpi XE4中执行相同的代码时,选项会使用一些随机值进行初始化,并且AutoSearch始终变为true,这会导致调用此DoRefresh函数,这是不需要.

我想知道是否有任何编译器选项将默认值设置为未初始化的变量.我现在唯一的解决方案就是这样

procedure MyView.InitializeForm(const aMsg: MyMsg);
    //---------------------------------------------------------------------------
    var
      Options: TLoadOption;
    begin
      Options := nil;

      if aMsg.OptionalObject <> nil then
       Options := aMsg.OptionalObject as TLoadOption;

      if Assigned(Options) and Options.AutoSearch then
        DoRefresh;
    end;

这是正确的方法吗？

解决方法

正如其他答案已经说过的那样,局部变量没有被初始化.
但是我想在这里添加的是nil safe.这意味着您无需检查是否已分配aMsg.OptionalObject.你可以写：

var
  Options: TLoadOption;
begin
  Options := aMsg.OptionalObject as TLoadOption;

  if Assigned(Options) and Options.AutoSearch then
    DoRefresh;
end;

请记住,如果OptionalObject不从TLoadOption继承,它将抛出异常.代码看起来总是这样.所以如果你确定你可以使用硬编：

begin
  if Assigned(aMsg.OptionalObject) and TLoadOption(aMsg.OptionalObject).AutoSearch then
    DoRefresh;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!