如何将Delphi中的TControlClass用作通用TControl参数实现泛型控制？

本文共计415个文字，预计阅读时间需要2分钟。

我有一个名为TLuaClassTemplate的模板，用于创建TControl类。构造函数为：RegisterClass(L: Plua_State; p: TPrintProc; container: TComponent; vm: TLuaVm); 静态的TControlClass引用存储在TDictionary中。

我有类TLuaClassTemplate< T：TControl,构造函数> = class并尝试使用它的方法类过程RegisterClass(L：Plua_State; p：TPrintProc; container：TComponent; vm：TLuaVm);静态的; TControlClass引用存储在TDictionary中

TClassNameToComponentDict = TDictionary<string, TControlClass>; TClassNameToComponentPair = TPair<string, TControlClass>; ... ClassNameToComponent := TClassNameToComponentDict.Create; ClassNameToComponent.Add('TButton', TButton); ClassNameToComponent.Add('TPanel', TPanel); ClassNameToComponent.Add('TEdit', TEdit);

但我尝试使用它有问题

enum: TClassNameToComponentPair; ctx: TRttiContext; cls: TControlClass; begin for enum in vm.ClassNameToComponent do begin //TLuaClassTemplate<enum.Value>.RegisterClass(vm.LS, PrintGlobal, container, vm); cls := TControlClass((ctx.FindType(enum.Key) as TRttiInstanceType).MetaClassType); TLuaClassTemplate<cls>.RegisterClass(vm.LS, PrintGlobal, container, vm); end;

我已经尝试了当前可见(通过搜索找到)和评论选项.但错误是Undeclared标识符：’TLuaClassTemplate’而TLuaClassTemplate< TButton> .RegisterClass(vm.LS,PrintGlobal,container,vm);作品.

我如何在这里使用TControlClass作为通用参数？

您遇到的问题是泛型的实例化要求在编译时知道类型参数.在您的代码中,cls在编译时是未知的,它仅在运行时确定.这意味着TLuaClassTemplate< cls>是泛型的无效实例化.

这里的底线是泛型为您提供代码参数化,但必须在编译时提供参数.由于您在运行时之前不知道参数,因此无法使用泛型来解决问题.

嗯,我说,不能,但你可以使用RTTI来调用你的泛型方法.为此,您需要确保每个可能的实例化类型都包含在可执行文件的类型列表中.但这样做真的会破坏仿制药的目的！使用标准运行时参数比编译时通用参数要容易得多.