
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
18.12.2002, 14:23:07
|
|||
|---|---|---|---|
Найти метод в классе |
|||
|
#18+
Есть определение класса TMyClass = class private public constructor Create; published procedure DoAny; end; вопрос: можно ли оределить наличие такого метода в классе (и вызвать его)? про TypInfo известно (и как получить свойство по имени, тоже) но нужна именно такая реализация (если возможно) Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.12.2002, 14:27:14
|
|||
|---|---|---|---|
Найти метод в классе |
|||
|
#18+
Есть определение класса TMyClass = class private public constructor Create; published procedure DoAny; end; вопрос: можно ли оределить наличие такого метода в классе (и вызвать его)? про TypInfo известно (и как получить свойство по имени, тоже) но нужна именно такая реализация (если возможно) Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.12.2002, 15:32:33
|
|||
|---|---|---|---|
Найти метод в классе |
|||
|
#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&mobile=1&tid=2119459]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
158ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
2ms |
| others: | 197ms |
| total: | 428ms |

| 0 / 0 |
