Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-82791
Sergey-ZZZ
2002-11-13 09:14
2002.11.25
RichEdit


3-82645
AccessLamer
2002-11-06 11:49
2002.11.25
Хочу аналог интербейсовского генератора в аксесе...


3-82653
Youri
2002-11-06 11:56
2002.11.25
Поиск в базе!


7-83023
Terrible
2002-09-24 16:09
2002.11.25
Запуск приложения с правами пользователя, который вошёл в систему


1-82832
Relict
2002-11-14 09:31
2002.11.25
толко русские буквы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский