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

Question

我需要在 Delphi 初始化 block 中进行初始化和数组。

看来您不能在初始化 block 中使用 var block ，因为这不会编译:

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

(第一个编译错误提示var):

([DCC Error] ScheAutoInfRb2.pas(6898): E2029 Statement expected but 'VAR' found)

这也无法编译(因为 idx 未声明):

initialization

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

[DCC Error] ScheAutoInfRb2.pas(6899): E2003 Undeclared identifier: 'idx'

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

1. 索引器的声明与其使用是分开的，但是实现部分(可能有数百行)，以及

2. 索引器的范围包括所有函数和过程在实现部分。

Answer 1

你不能。

通常的方法是编写一个过程，然后从初始化部分调用:

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

initialization
  IntLastStateArray;

end.