delphi – 如何将classname转换为类？

发布时间：2020-12-15 09:44:41 所属栏目：大数据来源：网络整理

导读：我在字符串列表中有类名.例如它可能是 ‘TPlanEvent’,’TParcel’,’TCountry’等现在我想通过循环列表找出大小. 它的作用是： Size := TCountry.InstanceSize; 但我希望这样： for i := 0 to ClassList.Count - 1 do Size := StringToClass(ClassList[i])

我在字符串列表中有类名.例如它可能是
‘TPlanEvent’,’TParcel’,’TCountry’等

现在我想通过循环列表找出大小.

它的作用是：

Size := TCountry.InstanceSize;

但我希望这样：

for i := 0 to ClassList.Count - 1 do
  Size := StringToClass(ClassList[i]).InstanceSize;

显然我的问题是编写什么而不是StringToClass方法来将字符串转换为类.

解决方法

既然您正在使用字符串列表,那么您也可以在那里存储类：

var
  C: TClass;

  StringList.AddObject(C.ClassName,TObject(C));

…

for I := 0 to StringList.Count - 1 do
  Size := TClass(StringList.Objects[I]).InstanceSize;

…

（编辑：李大同）

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