как узнать имена всех классов существующих в программе?

← →
AlexT1000 (2002-11-14 16:24) [0]

классов ! не объектов!

← →
Игорь Шевченко (2002-11-14 16:25) [1]

Зачем ?

← →
vlv (2002-11-14 16:27) [2]

их там ТЫЩИ!!!

← →
Skier (2002-11-14 16:27) [3]

>AlexT1000
У Марко Кэнту в книге
есть пример "Построение иерархии классов Delphi".
Или что-то другое имеется ввиду ?

← →
AlexT1000 (2002-11-14 16:44) [4]

мож я и некорректно сформултровал вопрос. но вот что мне надо

Игорь Шевченко

в ини файле есть строка.

ActionName=TLayerViewCurrentAction

так вот зная имя этого класса мне нужно как-то правильно вызвать конструктор этого класса.
единственое что я придумал это
создал массив (список) неважно
TNonMouseAction - мой класс.
TNonMouseClass = class of TNonMouseAction;

aActionsNonVisual : array of TNonMouseClass

SetLength(aActionsNonVisual,15);
aActionsNonVisual[0] := THSLAction;
aActionsNonVisual[1] := TInvertAction;
aActionsNonVisual[2] := TDesaturateAction;

ну и теперь я иду по этому массиву и сравниваю
aActionsNonVisual[i].ClassName = строка из ини
если да то aActionsNonVisual[i].Create

может есть какое более элегантное решение?

← →
Calm (2002-11-14 16:46) [5]

Нормальное решение.
Я и сам так делал.

← →
Skier (2002-11-14 16:53) [6]

>AlexT1000
Если я правильно понял, то можно проще
1) RegisterClass(es) - обязательно для своих классов !
2) И дальше GetClass(...) или FindClass(...)

← →
Romkin (2002-11-14 16:53) [7]

в initialization секции делаешь registerclass
Потом FindClass(<className>) Ну и конструируешь

← →
AlexT1000 (2002-11-14 17:00) [8]

всем спасибо !

registerclass,FindClass - чисто конкретное решение!

как узнать имена всех классов существующих в программе? Найти похожие ветки