delphi – 如何通过名称(字符串)访问变量？

发布时间：2020-12-15 04:22:57 所属栏目：大数据来源：网络整理

导读：我有一些全局字符串变量. 我必须创建我可以通过的功能将它们存放在某种结构中. 后来我需要枚举它们并检查它们的值. 如何轻松实现这一目标？ (我想我需要某种反射,或存储指针数组). 无论如何,任何帮助将不胜感激. 谢谢！解决方法首先,您不能将Delphi的RTTI

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

我必须创建我可以通过的功能&将它们存放在某种结构中.
后来我需要枚举它们并检查它们的值.

如何轻松实现这一目标？

(我想我需要某种反射,或存储指针数组).
无论如何,任何帮助将不胜感激.

谢谢！

解决方法

首先,您不能将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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!