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中将Options设置为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。

请参阅Are delphi variables initialized with a value by default?。

仅初始化本地引用计数变量（例如：字符串，动态数组，接口，变体）。

如果您的目标是移动平台，其中引入了ARC（自动引用计数），则会引用类。请参阅Automatic Reference Counting in Delphi Mobile Compilers。

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;

Answer 4

Options是一个非托管类型的局部变量。这意味着它没有初始化。在初始化之前，它可以具有任何值。如果变量有时恰好具有值nil而没有对其进行初始化，那么这对您来说是不吉利的。

在尝试读取局部变量之前，必须初始化它们。

Answer 5

根本不需要本地变量。

procedure MyView.InitializeForm(const aMsg: MyMsg);
begin
  if Assigned(aMsg.OptionalObject)
    and (aMsg.OptionalObject is TLoadOption)
    and (aMsg.OptionalObject as TLoadOption).AutoSearch
  then
    DoRefresh;
end;

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

5 个答案: