真正的C静态局部变量替换？

Question

只是试图在 ObjectPascal/Delphi 中实现 C/C++ 静态局部变量的类似功能。 让我们在 C 中编写以下函数：

bool update_position(int x, int y)
{
    static int dx = pow(-1.0, rand() % 2);
    static int dy = pow(-1.0, rand() % 2);

    if (x+dx < 0 || x+dx > 640)
        dx = -dx;
    ...
    move_object(x+dx, y+dy);
    ...
}

使用类型化常量作为静态变量替换的等效 ObjectPascal 代码无法编译：

function UpdatePosition(x,y: Integer): Boolean;
const
  dx: Integer = Trunc( Power(-1, Random(2)) );  // error E2026
  dy: Integer = Trunc( Power(-1, Random(2)) );
begin
  if (x+dx < 0) or (x+dx > 640) then
    dx := -dx;
  ...
  MoveObject(x+dx, y+dy);
  ...
end;

[DCC Error] test_f.pas(332): E2026 Constant expression Expected

那么有什么办法吗？对于一次性传递初始化的本地变量？

Answer 1

Delphi 中没有与 C 静态变量直接等效的东西。

可写类型常量（请参阅 user1092187 的回答）几乎是等效的。它具有相同的作用域和实例属性，但不允许使用 C 或 C++ 静态变量进行一次性初始化。无论如何，我认为应避免将可写类型常量作为古雅的历史脚注。

您可以使用全局变量。

var
  dx: Integer;
  dy: Integer 

function UpdatePosition(x,y: Integer): Boolean;
begin
  if (x+dx < 0) or (x+dx > 640) then
    dx := -dx;
  ...
  MoveObject(x+dx, y+dy);
  ...
end;

您必须在 initialization 部分中进行一次性初始化：

initialization
  dx := Trunc( Power(-1, Random(2)) );
  dy := Trunc( Power(-1, Random(2)) );

当然，与 C 静态变量的有限范围不同，这会使全局命名空间变得混乱。在现代 Delphi 中，您可以将其全部包装在一个类中，并使用类方法、类变量、类构造函数以避免污染全局命名空间。

type
  TPosition = class
  private class var
    dx: Integer;
    dy: Integer;
  private
    class constructor Create;
  public
    class function UpdatePosition(x,y: Integer): Boolean; static;
  end;

class constructor TPosition.Create;
begin
  dx := Trunc( Power(-1, Random(2)) );
  dy := Trunc( Power(-1, Random(2)) );
end;

class function TPosition.UpdatePosition(x,y: Integer): Boolean;
begin
  // your code
end;

Answer 2

启用“可写类型常量”：

{$J+}
procedure abc;
const
  II: Integer = 45;

begin
  Inc(II);
  ShowMessage(IntToStr(II));
end;
{$J-}

procedure TForm1.Button1Click(Sender: TObject);
begin
  abc;
  abc;
  abc;
end;