Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Узнать наличие метода у объекта [D4, D6]

чяйник © (2005-02-24 13:58:00)
У меня есть, допустим, массив объектов какого-то класса, объекты создаются как экземпляры различных дочерних классов этого класса. Как мне узнать, существует ли нужный мне метод у какого-либо объекта из этого массива? Т.е. проблема просто сводится к тому, существует ли нужный метод у объекта. Пробовал сравнивать MethodAddress с nil, не помогло. Почему-то всегда nil! :)

Digitman (2005-03-01 17:29:00) [1]

> пошли сообщение

SendMessageCallback()

У (2005-03-01 17:21:00) [2]
пошли сообщение

Digitman (2005-03-01 17:05:00) [3]

> Более прекрасной

этто чтотто)

чяйник (2005-03-01 17:04:00) [4]
метод - в смысле mousemove, click и т.п.
то есть моей кнопке mousemove не нужен (и его нету), как его не вызывать, не проверяя принадлежность к классу?

Digitman (2005-03-01 17:03:00) [5]

> хотел сделать небольшую игру с использованием direct draw,
> там vcl нельзя

бред сивой кобылы.

чяйник (2005-03-01 16:59:00) [6]

> Зачем тебе это?
> Лучше скажи с какой целью тебе нужно узнавать есть ли в
> классе этот метод.

я хотел сделать небольшую игру с использованием direct draw, там vcl нельзя, так что кнопки и прочие элементы интерфейса пришлось делать. Окно принимает сообщения от мышы и клавиатуры и пытается вызвать метод того или иного объекта. Я сейчас использую операцию is, как посоветовал Недоброжелатель, но мне кажется, что это можно сделать проще...

> Palladin © (25.02.05 00:17) [7]
> Более прекрасной заменой наличия методов являются свойства.

а можно пример?

Palladin (2005-02-25 00:17:00) [7]
Более прекрасной заменой наличия методов являются свойства.

Недоброжелатель (2005-02-25 00:05:00) [8]
Метод всегда есть часть класса, поэтому
if SomeObj is TSomeClass then TSomeClass(SomeObj).SomeClassMethod

Eraser (2005-02-24 23:39:00) [9]
чяйник

Зачем тебе это?
Лучше скажи с какой целью тебе нужно узнавать есть ли в классе этот метод.
95% что твою задачу нужно решать совершенно по-другому...

AkaSaint (2005-02-24 22:30:00) [10]
TClass1 = class
...
end;

TClass2 = class(TClass1)
...
public:
procedure NewMethod;
end;

Class1Array: array of TClass1;
...
for i := 0 to Length(Class1Array) - 1 do
if Class1Array[i] is TClass2 then
//Есть NewMethod
else
//нет

DiamondShark (2005-02-24 14:22:00) [11]
А я вот с трудом представляю задачу, где это нужно.

Юрий Зотов (2005-02-24 14:19:00) [12]
Вариант решения - использовать интерфейсы.

Digitman (2005-02-24 14:05:00) [13]

> Почему-то всегда nil

потому что MethodAddress() работает лишь с published-методами

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »