如何通过名称（字符串）访问变量？

Question

我有一些全局字符串变量。

我必须创建我可以传递的函数 &将它们存储在某种结构中。 稍后我需要枚举它们并检查它们的值。

如何才能轻松实现这一目标？

（我想我需要某种反射，或者存储指针数组）。 无论如何，任何帮助将不胜感激。

谢谢！

Answer 1

首先，您不能使用 Delphi 的 RTTI 来实现此目的，因为 Delphi 7 的 RTTI 仅涵盖已发布的类成员。即使您使用的是 Delphi XE，全局变量仍然没有 RTTI（因为 RTTI 与类型相关，而不是与“单位”相关）。

唯一可行的解​​决方案是创建您自己的变量注册表并使用名称和指向 var 本身的指针来注册全局变量。

示例：

unit Test;

interface

var SomeGlobal: Integer;
    SomeOtherGlobal: string;

implementation
begin
  RegisterGlobal('SomeGlobal', SomeGlobal);
  RegisterGlobal('SomeOtherGlobal', SomeOtherGlobal);
end.

RegisterXXX 类型是否需要在某处定义，可能在自己的单元中，如下所示：

unit GlobalsRegistrar;

interface

procedure RegisterGlobal(const VarName: string; var V: Integer); overload;
procedure RegisterGlobal(const VarName: string; var V: String); overload;
// other RegisterXXX routines

procedure SetGlobal(const VarName: string; const Value: Integer); overload;
procedure SetGlobal(const VarName:string; const Value:string); overload;
// other SetGlobal variants

function GetGlobalInteger(const VarName: string): Integer;    
function GetGlobalString(const VarName:string): string;
// other GetGlobal variants

implementation

// ....

end.

Answer 2

您还可以有一个全局 TStringList 变量，其中包含名称-值对列表。

Answer 3

在 Delphi 7 上，我会遵循 Cosmin 的接口想法，而对于实现，我会使用基于 Julian Bucknall 的 Delphi 优秀数据结构代码的字典类型， ezDSL。

delphi 的更高版本（例如 XE）不仅具有更高级的 RTTI，它们还包含一个非常好的字典类型，使用泛型，因此字典可以包含您喜欢的任何类型。 esDSL 字典非常容易使用，但由于它是基于指针的，因此它不像 delphi 泛型字典那样类型安全。

由于您需要做的是在非常快的时间内查找字符串“变量名称”（我们喜欢称之为 O(1)），因此您需要的是一个字符串到变量的字典。您可以使用字符串作为键，使用变体作为字典中的值，然后删除原始的全局变量，或者您可以尝试一些相当复杂的全局指针逻辑，但我真的认为您会更好使用 键、值元组的简单字典。