У меня есть имена классов в списке строк. Например, это может быть «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;
...
Если ваши классы являются производными от TPersistent, вы можете использовать RegisterClass и FindClass или GetClass . В противном случае вы могли бы написать какой-то механизм регистрации самостоятельно.
В Delphi 2010 вы можете использовать:
function StringToClass(AName: string): TClass;
var
LCtx: TRttiContext;
LTp: TRttiType;
begin
Result := nil;
try
LTp := LCtx.FindType(AClassName);
except
Exit;
end;
if (LTp <> nil) and (LTp is TRttiInstanceType) then
Result := TRttiInstanceType(LTp).Metaclass;
end;
Одна нота. Поскольку вы сохраняете в списке только имена классов, этот метод не будет работать, поскольку TRttiContext.FindType ожидает полное имя типа (например, uMyUnit.TMyClass). Исправление состоит в том, чтобы прикрепить модуль, в котором вы храните эти классы, в цикле или в списке.
