Question

我需要在Delphi初始化块中初始化和数组。

看来你不能在初始化块中使用var块，因为这不会编译：

initialization
var
idx : Integer;
begin
    for idx := 0 to length(LastState)-1 do begin
        LastState[idx] := $FFFF;
    end;
end;

（第一次编译错误抱怨 var ）：

（[DCC错误] ScheAutoInfRb2.pas（6898）：E2029预期陈述但 'VAR'发现）

这也不编译（因为没有声明idx）：

initialization

    for idx := 0 to length(Last_Pro2State)-1 do begin
        Last_Pro2State[idx] := $FFFF;
    end;

[DCC错误] ScheAutoInfRb2.pas（6899）：E2003未声明的标识符：'idx'

我知道我可以在主单元声明中声明一个索引器，但这有一些缺点：

索引器的声明与其使用分开，但是实施部分（可能有几百行）和
索引器的范围包括所有功能和过程在实施部分。

Answer 1

你不能。

通常的方法是编写一个程序然后从initialization部分调用：

procedure InitLastStateArray;
var
  idx : Integer;
begin
  for idx := 0 to length(LastState)-1 do begin
    LastState[idx] := $FFFF;
  end;
end;

initialization
  IntLastStateArray;

end.

Answer 2

我知道我可以在主单元声明中声明一个索引器，但这有几个不足之处：

您可以通过在implementation部分的initialization部分，interface部分正上方声明它来避免您提到的两个缺点。在implementation部分使用它并没有必要或好处，也没有将它放在interface部分的顶部：你对你提到的缺点是对的，它是正确的不必要地增加变量的范围并将其声明从其使用的地方移开，并且没有任何优势可以解决这个问题。如果您希望其他单位能够访问这些变量，您只需要将变量放在var idx : Integer; initialization for idx := 0 to length(LastState)-1 do LastState[idx] := $FFFF; end.部分。

initialization

这是你能得到的最好的，D7中没有办法在idx块内获得变量声明，但为了完整起见，在Delphi的后续版本中你应该能够使用匿名过程，可以在几乎任何地方完全定义表达式（包括局部变量）。

虽然从技术上讲这会使initialization成为一个全局变量，但Rob Kennedy指出，只要它只在sslEnabledProtocols块中使用，编译器就会将其视为＆＃39} ;该块的本地变量。在进行实验时，我发现这并不完全正确，例如，我在获取变量的地址时能够找到反例，但出于实际目的，它应该足够接近。此外，对于仅执行一次的块，局部变量和全局不可访问的变量之间的差别不大。

在Delphi 2007 Pascal初始化块中声明索引变量的语法是什么？

2 个答案: