Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Внизкак узнать имена всех классов существующих в программе? Найти похожие ветки
← →
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 - чисто конкретное решение!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c