Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Как проверить имеет ли порожденный объект переопределенный метод? 


Kirill_Other   (2002-03-26 09:51) [0]

Ситуация - Есть базовый абстрактный объект, и в нем определены некоторые абстрактные методы. Потом порождается от него другой объект и в нем некоторые методы переопределяются а некоторые нет(тоесть они остаются абстрактными). И вот мне надо узнать из приложения какие методы переопределены а какие нет.
Пробовал проверять адресс метода на nil но что-то не очень получается.



MBo   (2002-03-26 09:56) [1]

[Warning] Unit1.pas(31): Constructing instance of "TStrings" containing abstract methods
это не спасает?



Kirill_Other   (2002-03-26 10:16) [2]

Что-то я не совсем понял Вашу мысль. Если можно поподробней.



Виктор Щербаков   (2002-03-26 10:21) [3]

Ну типа компилятор сам о них предупреждает.



Kirill_Other   (2002-03-26 10:31) [4]

Это очень хорошо, что компилятор сам о них предупреждает, но у меня в прогремме некоторые кнопки реагируют на эти абстрактные методы и в зависимости с каким порожденным объектом она работает надо смотреть есть ли переопределенные методы и если нету то соответствующую кнопку надо спрятать. Меня интересует как это сделать программно. В абстрактном оъекте определить методы как dynamic abstract а потом проверять на nil что-ли?



reonid   (2002-03-26 11:43) [5]

Насколько я помню, у всех абстрактных методов
TMethod(AbstrMethod).Code указывает на один и тот же адрес,
независимо от аргументов метода.

(Я не помню, есть ли где-нибудь на него официальная ссылка, но его всегда можно взять у заведомо абстрактного метода)



yaJohn   (2002-03-26 12:18) [6]

ИМХО в данном случае будет корректно
try
MyObj.MyMetod;
except
//HideButton....
end;

>TMethod(AbstrMethod).Code указывает на один и тот же адрес
Вызывающий Exception вызова абстрактного метода.



reonid   (2002-03-26 12:36) [7]

>yaJohn ©
При использовании твоей идеи если метод не абстрактный,
то он будет выполнен, что ИМХО неправильно.

Правильнее проверить адрес метода (без его вызова).



yaJohn   (2002-03-26 12:50) [8]

2 reonid
А я не сказал что это правильно. Я сказал, что это корректно.
Правильно будет не оставлять абстрактных методов, а вешать на них в потомках заглушки, по которым можно все красиво проверить, поскольку их адреса уж точно известны. IMHO



reonid   (2002-03-26 13:42) [9]

По адресам заглушек никак не проверишь, поддерживается этот метод или нет.

Если делать заглушки, то возможен следующий подход:

ESuppported = class(EAbort) end;
ENotSuppported = class(EAbort) end;

var
SupportTestMode: Boolean = False;

procedure Support(MethodSupported: Boolean);
begin
if SupportTestMode then if MethodSupported then
raise ESupport.Create else raise ENotSupport.Create;
end;

В НАЧАЛЕ каждого методе вызывать Support(True) или
Support(False) (False - для заглушек)
В режиме тестирования это предотвратит выполнение основного тела метода.

и соответственно проверка, поддерживается ли данный метод

function Supported(Meth: TNotifyEvent{для примера});
begin
SupportTestMode := True;// Включён режим проверки
try
try
Meth(nil); // значимый код метода НЕ будет выполнен
// сюда не должны попасть
raise Exception.Create("В методе забыли вызвать Support");
except
on ESupported do Result := True;
on ENotSupported do Result := False;
end;
finally
SupportTestMode := False;
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.029 c
14-22843          PEC                   2002-02-25 12:47  2002.04.08  
Delphix !


3-22568           UncleRu               2002-03-06 18:06  2002.04.08  
Всё тот же кэш.


3-22552           Revo                  2002-03-15 15:18  2002.04.08  
Как из данные из текстовика перенести в IB5.0


4-22876           JAndrey               2002-01-31 01:15  2002.04.08  
Как заблокировать клавиатуру и мышь?


1-22721           Sound                 2002-03-25 22:29  2002.04.08  
Поиск по Memo