delphi - 如何将类名字符串转换为类？

Question

我在字符串列表中有类名。例如它可以是“TPlanEvent”、“TParcel”、“TCountry”等

现在我想通过循环列表来找出尺寸。

它的作用是:

Size := TCountry.InstanceSize;

但我想要这样的:

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

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

Answer 1

由于您使用的是字符串列表，因此您也可以将类存储在那里:

var
  C: TClass;

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

...

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

...