如何在 Delphi 中获得静态（类）字段的等效项？

Question

我在一堂课上有一个手术，费用非常昂贵。 （大约需要 8 秒才能完全运行）所以，现在我决定它应该在程序开始时的“初始化”屏幕期间运行。然而，我在 Delphi 中找不到任何地方表明存在静态字段之类的东西。

我基本上需要做的是加载记录列表并让它们在程序的整个生命周期中保持活动状态。在德尔福中执行此操作的最佳方法是什么？

我会在 C# 中非常简单地执行此操作：

class Foo{
  static List<...> Bar;
}

但是在 Delphi 中，我没有看到任何用于创建静态字段的内容。我所看到的只是用于创建静态方法的 class 关键字

Answer 1

您可以只使用全局变量。将其添加到单元的implementation 部分，使其成为该单元的本地单元。

我的 Turbo Delphi 支持 class var x:integer;，但我很确定 Delphi 7 不支持。

Answer 2

我认为现在是在 Delphi 中使用初始化和终结的好时机。它位于一个单元的末尾，就在 end 之前。 您可以使用它来创建/释放这样的全局实例，或者只是设置默认变量...

unit Unit1;

interface

uses
  Classes;

function MyList: TStringList;    

implementation

var
  GMyList: TStringList;

function MyList: TStringList;
begin
  Result:= GMyList;
end;

initialization
  GMyList:= TStringList.Create;
  MyList.Append('Value 1'); 
  MyList.Append('Value 2');
  MyList.Append('Value 3');

finalization
  GMyList.Free;

end.

这只需要像这样的特殊场景。 MyList 将在您的应用程序期间保持活动状态。

请注意 GMyList 是如何在 implementation 下声明的，而 MyList 实际上是访问 GMyList 的全局函数。这是为了避免意外分配等。从任何其他单元，您可以使用 MyList 函数访问 GMyList，但无法直接访问 GMyList（这就是你想避免错误）。

Answer 3

如果您想要真正的东西，您将需要更新的 Delphi 版本。

然而，pascal 总是有类似的范围，但为此你应该（带着一点幻想）将一个单元视为静态最终类。

公共函数和变量在接口部分定义，私有内容在实现部分定义。
所有这些或多或少都相当于类变量和类方法。

如果您将单元命名为 loader.pas，并在接口部分定义了一个函数“init”，您甚至可以像调用类函数一样调用它：loader.init()。

初始化和终结部分相当于类构造函数和类析构函数。

我上面描述的从 Turbo plascal 到 delphi 2007 都是有意义的（我认为类变量是在 d2009 中引入的）。总而言之，我建议买一个更新的delphi。