Проблема с вызовом статического метода перегруженного класса, полученного через GetClass

[savva-paladin]

Добрый день. Ситуация такая.
Имеем:
класс TTool (от TPersistent) со статическим методом CreateControls;
наследников от класса TTool, предварительно зарегистрированных (RegisterClass), с перегруженным методом CreateControls;
переменную lcc - класс, по имени которого через GetClass получается наследник от TTool (имена этих классов точно правильные, проверил уже раза 3);
А также нижеприведенный код, который вылетает с EAccessViolation:

TTool(GetClass(Concat(lcc.ClassName, 'Tool'))).CreateControls(TWinControl(GreyDrawForm.PropPanel));

При этом

GetClass(Concat(lcc.ClassName, 'Tool')).ClassName

содержит нужное имя класса.
Может кто-нибудь подскажет, в чём проблема? Благодарен буду.
P.S.: Исходники на GitHub. Проблемное место. Проект под Lazarus.

[phomm]

Если не ошибаюсь (некогда проверить), то

function GetClass(const AClassName: string): TPersistentClass;

У Вас

класс TTool

На лицЕ расхождение.
TPersistentClass это class ref - ссылка на класс.
TTool же это сам класс.

Полагаю, Вам придётся создать тип ссылки на класс

TToolClass  = class of TTool;

и инстанцировать это дело.

var
  Tool: TTool;
...
Tool := TToolClass(GetClass(Concat(lcc.ClassName, 'Tool'))).Create();

Причём немаловероятно, что надо будет ещё виртуальный конструктор сделать.
и уже потом вызывать свой метод, который, к слову, имеет смысл сделать виртуальным и нестатическим.
Да даже подумайте вот сами, как должен компиль вызвать Ваш метод (даже опустив что у классовой ссылки скастованной в класс предка это невозможно), если он у Вас статический, а Вы хотите зависящий от наследника.

Как будет время, копну свой код, как я подобные интерфейсо-построители писал.

Кстати, что пишете ? на гитхабе глянул вползуба , но конкретики не нашёл.

[savva-paladin]

Да, логично.
Спасибо!

[phomm]

Кстати, вспомнил, недавно вот обсуждали, хоть и не совсем то, но примеры по GetClass , есть куда покопать.
http://programmersforum.ru/showthread.php?t=247508

[savva-paladin]

Векторный редактор графики, задание на первый семестр первого курса.

И я так понял, GetClass (как и весь RTTI) - костыль, юзать его нехорошо.

[phomm]

Ну, я бы не сказал, что это костыль. Как и любое другое средство - в нужное время в нужном месте и в нужных руках даёт свои результаты, а криво можно даже сложением пользоваться. Недаром в дельфи2010 сильно улучшили RTTI, да и в дотнете вон поглядите, что рефлексией бывает вытворяют.

[Аватар]

А почему вместо огорода с GetClass не просто
lcc.CreateControls или TTool(lcc).CreateControls

[savva-paladin]

Не всё так просто - lcc - ссылка не на тот класс, который мне нужен.
Глядите: GetClass(Concat(lcc.ClassName, 'Tool')) - имя класса lcc конкатенируется с тулой.
Да и собственно проблема решена, спасибо phomm'у, я упорно не замечал, что не к тому типу привожу.