Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
18.12.2002, 14:23
|
|||
|---|---|---|---|
Найти метод в классе |
|||
|
#18+
Есть определение класса TMyClass = class private public constructor Create; published procedure DoAny; end; вопрос: можно ли оределить наличие такого метода в классе (и вызвать его)? про TypInfo известно (и как получить свойство по имени, тоже) но нужна именно такая реализация (если возможно) Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.12.2002, 14:27
|
|||
|---|---|---|---|
Найти метод в классе |
|||
|
#18+
Есть определение класса TMyClass = class private public constructor Create; published procedure DoAny; end; вопрос: можно ли оределить наличие такого метода в классе (и вызвать его)? про TypInfo известно (и как получить свойство по имени, тоже) но нужна именно такая реализация (если возможно) Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.12.2002, 15:32
|
|||
|---|---|---|---|
Найти метод в классе |
|||
|
#18+
type TMyMethod = procedure of object; TMyClass = class //Твой класс из которого нужно вызвать метод по имени public constructor Create; published//Вызываются только методы из этого раздела procedure DoAny; end; .... function TForm1.GetMethod(aMethodName: string): TMethod; begin result.Code := TMyClass.MethodAddress(aMethodName); end; procedure TForm1.Button1Click(Sender: TObject); var o: TMyMethod; begin o:=TMyMethod(GetMethod('DoAny'));;//Получаем наш метод по имени o;//Выполняем метод end; .... initialization RegisterClasses([TMyClass]); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=58&tablet=1&tid=2119459]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
77ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
2ms |
| others: | 11ms |
| total: | 180ms |

| 0 / 0 |
