|
|
|
Найти метод в классе
|
|||
|---|---|---|---|
|
#18+
Есть определение класса TMyClass = class private public constructor Create; published procedure DoAny; end; вопрос: можно ли оределить наличие такого метода в классе (и вызвать его)? про TypInfo известно (и как получить свойство по имени, тоже) но нужна именно такая реализация (если возможно) Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 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+
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]); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.12.2002, 15:32:33 |
|
||
|
|

start [/forum/topic.php?fid=58&fpage=2073&tid=2119459]: |
0ms |
get settings: |
6ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
55ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
28ms |
get tp. blocked users: |
2ms |
| others: | 192ms |
| total: | 314ms |

| 0 / 0 |
