Привет всем, Есть дельфи и в нем TObj1 = class

Question

Привет всем, Есть дельфи и в нем TObj1 = class

procedure ObjCommon; virtual;
end;

TObj2 = class(TObj1)
procedure ObjCommon; override;
end;

хочу имея объект TObj2 добраться до базового TObj1.ObjCommon
делаю так:
var obj := TObj2.Create;
(obj as TObj1).ObjCommon;

но нет, не выходит. Как вызвать только TObj1.ObjCommon ?

#lazarus #programming #russian

0

24.07.2024

6 ответов

14 просмотров

Андрей Руфин Автор вопроса

Igor
в контексте TObj2 можно написать inherited ObjComm...

у меня есть obj типа TObj2. и совершенно в другом месте, не внутри классов, хочется вызвать только базовый TObj1.ObjCommon. понятно что внутри классов я могу Inherited дернуть....

0

1 месяц назад

Kirill Filippenok

Андрей Руфин
у меня есть obj типа TObj2. и совершенно в другом ...

Вы можете такое сделать, только если у вас будут отличаться параметры. К примеру вот так TObj1 = class procedure ObjCommon; overload; virtual; end; TObj2 = class(TObj1) procedure ObjCommon(I: Integer); reintroduce; overload; virtual; end;

0

1 месяц назад

Александр (Rouse_) Багель

O2: TObj2; ObjCommon: procedure of object; begin O2 := TObj2.Create; TMethod(ObjCommon).Code := @TObj1.ObjCommon; TMethod(ObjCommon).Data := O2; ObjCommon;

0

1 месяц назад

Андрей Руфин Автор вопроса

Александр (Rouse_) Багель
O2: TObj2; ObjCommon: procedure of object; beg...

вот, монстры подтянулись 😊 похоже именно этого ответа я и ожидал. ушел пробовать

0

1 месяц назад

Андрей Руфин Автор вопроса

Александр (Rouse_) Багель
O2: TObj2; ObjCommon: procedure of object; beg...

Все сработало. пришлось объявить новый тип для procedure of object но это мелочи. главное не пришлось эти TObj1 TObj2 править... Всем спасибо за идеи!

0

1 месяц назад

Igor · Accepted Answer

Igor

в контексте TObj2 можно написать inherited ObjCommon

0

1 месяц назад

169 похожих чатов

Привет всем, Есть дельфи и в нем TObj1 = class

6 ответов

Похожие вопросы