Страница 1 из 1
Наследование
Добавлено: 08 авг 2013, 15:51
lukdom
Добрый день. Может кто сталкивался с такой проблемой или знает как ее решить:
Делаю интерфейс, имплиментурую объектную процедуру. Потом делаю другой интерфейс, наследуемый от первого. И хочу заместить процедуру. При компиляции выдает ошибку " Повторная реализация метода"
Код: Выделить всё
ObjInterface ObjInter;
procedure doSome(pRec : comp);
End;
Interface iInt1;
procedure doSome(pRec : comp);
{
message('iInt1.doSome');
}
end.
VipInterface iInt1 implements ObjInter licensed( free );
Interface iInt2;
procedure doSome(pRec : comp);
{
message('iInt2.doSome'); // здесь возникает ошибка "Повторная реализация метода ObjInter.doSome"
}
end.
VipInterface iInt2(iInt1) licensed( free );
Все это нужно для того, что бы по объектной переменной вызвать нужную процедуру на подобии такого
Код: Выделить всё
var oM : ObjInter;
if (Trim(sInt) = '')
{
if NullVipRef(oM)
LoadVipRef(oM, 'iInt1');
}
else
if NullVipRef(oM)
LoadVipRef(oM, 'iInt2');
oM.doSome(pDogovor);
Re: Наследование
Добавлено: 08 авг 2013, 16:32
Den
" Когда есть желание перекрыть реализацию унаследованной функции, в описании интерфейса нужно описать перекрываемую функцию" (с)
Видимо, ее для VipInterface iInt2 нужно объявить как Public.
Re: Наследование
Добавлено: 08 авг 2013, 17:20
lukdom
Den писал(а):Видимо, ее для VipInterface iInt2 нужно объявить как Public.
Уже так делал. Делал и по другому описывал ее и в iInt1 а так же вместе в iInt1 и iInt2 все равно возникала одна и тажа ошибка
Ошибка: метод doSome есть у нескольких объектных интерфейсов.
Код: Выделить всё
VipInterface iInt2(iInt1) licensed( free );
public :
procedure doSome(pRec : comp);
end;
Re: Наследование
Добавлено: 08 авг 2013, 18:28
Den
мутновато как то все...но получилось собрать только без описания явно ObjInterface
т.е. 1.vih :
Код: Выделить всё
VipInterface iInt1 sourceFile="v0.vip" licensed( free );
Public :
procedure doSome(pRec : comp);
End;
2.vih :
Код: Выделить всё
VipInterface iInt2(iInt1) licensed( free );
Public :
procedure doSome(pRec : comp);
end;
0.vip
Код: Выделить всё
Interface iInt1;
procedure doSome(pRec : comp);
{
message('iInt1.doSome');
}
end.
1.vip
Код: Выделить всё
Interface iInt2;
public procedure doSome(pRec : comp);
{
message('iInt2.doSome'); // здесь возникает ошибка "Повторная реализация метода ObjInter.doSome"
}
end.
ну и в файле проекта
#include 1.vih
#include 2.vih
#make "0.vip"
#make "1.vip"
#make "2.vip" // вызов "извне" метода doSome Interface iInt2
а 2.vip :
Код: Выделить всё
Interface testcall;
create view
;
var li1 : iInt2 ;
HandleEvent
CmInit:{
LoadVipInterface (li1);
li1.doSome(0);
}
end;
end.
Re: Наследование
Добавлено: 08 авг 2013, 18:40
lukdom
Den писал(а):мутновато как то все...но получилось собрать только без описания явно ObjInterface
Да так будет работать, но не совсем то что мне нужно.
Тут получаются интерфейсные переменные. Я чутка не так написал для упрощения вопроса, но суть в том что бы в объектную переменную загружать динамически ссылку на интерфейс:
Код: Выделить всё
procedure run(sInt : string);
{
var oM : ObjInter;
if (Trim(sInt) = '')
{
if NullVipRef(oM)
LoadVipRef(oM, 'iInt1');
}
else
if NullVipRef(oM)
LoadVipRef(oM, sInt);
oM.doSome(pDogovor);
}
Re: Наследование
Добавлено: 08 авг 2013, 19:10
Den
тогда так как у Вас +
VipInterface iInt2(iInt1) licensed( free );
Public:
Procedure ObjInter.DoSome(pRec : comp);
end;
цитату верно указал я. но правильно вот так нужно.
Re: Наследование
Добавлено: 09 авг 2013, 05:05
lukdom
Den писал(а):Procedure ObjInter.DoSome(pRec : comp);
То что нужно. Большое спасибо!