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

Question

我上课了

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;

这是正确的方法吗？

Answer 1

本地类未初始化.在测试其赋值之前,您需要将其设置为nil.

请参见默认情况下是否使用值初始化delphi变量？.

仅初始化本地引用计数变量(例如:字符串,动态数组,接口,变体).

如果您的目标是移动平台,其中引入了ARC(自动引用计数),则会引用类.请参阅Delphi移动编译器中的自动引用计数.

Answer 2

正如其他答案已经说过的那样,局部变量没有被初始化.但是我想在这里添加的as是零安全.这意味着您无需检查是否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;

Answer 3

不.假设这TLoadOption是一个对象(非托管引用类型),您必须自己初始化局部变量.没有选项可以为您初始化它们.未初始化的引用类型(如字符串等托管类型除外)的局部变量将始终包含堆栈中该位置的任何垃圾数据.这使得Assigned不可能.

您可能只是稍微简化了一下代码,但这可以达到最短的程度.

var
  Options: TLoadOption;
begin
  if aMsg.OptionalObject <> nil then begin
    Options := aMsg.OptionalObject as TLoadOption;
    if Options.AutoSearch then DoRefresh;
  end;
end;