kealon(Ruslan) ну или с Implements замутить
Да ты просто СУПЕР!!!!!
Спасибо за идею.
Мучаюсь с древним проектом, пока работает, все пучком, как вносить изменения, особенно оптимизиционные, так ловля блох (потерянные ссылки) больше времени занимает, чем сами изменения.
Блин, еще раз спасибо за идею!!!

rgreatОпиши задачи где интерфейсы есть больше смысла применять чем другие инструменты.

И почему.

Хотел дать ссылку, как мне объясняли про интерфейсы, но не нашел.

Тема называлась "Interface - в чем фишка!", опубликовано было в FIDO в октябре 2002 года

Процитирую, что сохранил себе:

Привет коллеги.
Может ктонибудь объяснит в чем фишка исп-я интерфейсов?
Единственное положительное от использования это счетчик ссылок, с
авто-убиением и второе - это обязательное описание методов в классе
(полож-е или отрицательоное :о? )

Пример с животными кот-й везде приводится очень хорошо делается и без
интерфейсов.
Пример:
ТЛетим
- высота полета над ур-м моря, скорость
ТПлаваем
- глубина, пресноводное или в морской воде обитает

Потом объеделяем поведенческие метотоды

ТЛетуноНыряльщик
ТБегуноНыряльщик и т.д.

в нутрях делаем

ТЛетуноНыряльщик = class
private
FЛетим:ТЛетим
FПлывем:ТПлаваем
published
property ВысотаПолета
property ГлубинаПогружения

Потом описываем спокойно животных

ТДельфин=класс(ТМлекопитающее)
private
FЛетуноНыряльщик :ТЛетуноНыряльщик ;
property МеханизмДвижения:ТЛетуноНыряльщик read FЛетуноНыряльщик ;

ТУтка=класс(Птица)
private
FЛетуноНыряльщикБегающий :ТЛетуноНыряльщикБегающий ;
property МеханизмДвижения:ТЛетуноНыряльщикБегающий read
FЛетуноНыряльщикБегающий ;

Все!!!

В одном проперти все методы движения объекта животного.

Так в чем фишка исп-я интерфейсов?
Ненужно делать делегирования методов, они все в одной точке и ОТЛИЧНО
поддаются контролю при программировании.

Или использ-е интерфейсов с исп-м технологии СОМ связано?

А то я что то не врубаюсь :)

AWS

ответы мне в конфу:
авторА теперь представь что у тебя есть объект который занимается управлением
стаи летунов и другой объект который управляет ныряльщиками, причем
написанные не тобой и без исходников. Они подразумевают что все передаваемые
под их начало объекты будут произведены от TЛетун и TНыряльщик
соответственно. Очевидно что TУтка должен быть одновременно и TЛетун и
TНыряльщик и никакие property для этого не подходят. Значит необходимо
множественное наследование, которое есть в C++, но нет в Delphi и VB. Причем
множественное наследование при программировании штука довольно-таки сложная.
Особенно в нетривиальных ситуациях. Вот тут то и помогает интерфейсы. Если
TУтка реализует интерфейсы TЛетун и TНыряльщик то управляющие объекты смогут
с ним работать.

--------------------
Ну тут уже разные люди всякие вещи сказали, я добавлю. Довольно приятная
вещь - запрос интерфейса в runtime. Например, есть у нас объект TVehicle.
Задача - сбить цель! А мы не знаем может ли этот объект сбивать цели.
Поскольку TVehicle, то это может быть и "Мерседес" и "Шилка" и "Урал" и
"Зенитный пулемет смонтированный на Урале".

Но мы недолго думая пишем:

procedure TGunSlinger.EngageTarget(const V:TInterfacedObject);
var
G:IAntiAircraftGun;
begin
if Supports(V,IAntiAircraftGun,G) then
if G.HasAmmo and G.FindTarget then G.FireAtTarget
else
RunAway;
end;

Таким образом нам все равно на чем установлены средства ПВО. Главное что они
есть.


Привет!
Интересный у тебя пример, самый понятливый :)
Т.е. резюме::
1.Экспресс диагностика методов от родителей.
2.Реализация нужных методов, для любого объекта.
Т.е. в моем примере:
Есть множество животных объектов, типа единого массива, со своими интерфейсами.
При захвате этого объета можно реализть такой алгоритм "жизни".

Procedure ОбъектПопалВВоду(ifObj:TInterfacedObject)
begni
If ifObj is IПлаваем then
begin
// реализация плавания
end else
begin
// реализация предсмертного мата и отправки души на небо.
end;
end;


Т.е. если сделать программу - "Животные", и что бы при работе спозиционировавшись на объекте, я мог знать то что реализовано у меня в срезе-интерфейсе? Так?

К примеру
Дельфин - интерфейсы срезы: Вид, место обитания, хищник, ареал популяции (в каких местах нах-ся)

И у каждого есть свои методы получения данных об объекте. Так?


Но ведь у интерфесов нет переменных и как к примеру ты узнаешь от интерфейса, какой калибр и емкость магазина, до какой высоты идет эфф-е поражение цели?

Как узнать не делая второй интерфейс?

AWS



ответы

Talk: Interface - в чем фишка!
Sergey Skorodinsky
Профиль

22 10 2002 20:32 ответить

* Crossposted in RU.DELPHI
Рад пpиветствовать тебя, AWS!

Tuesday October 22 2002 07:45, AWS Владимиp wrote to All:

AВ> Может ктонибyдь объяснит в чем фишка исп-я интеpфейсов?
AВ> Единственное положительное от использования это счетчик ссылок, с
AВ> авто-yбиением и втоpое - это обязательное описание методов в классе
AВ> (полож-е или отpицательоное :о? )

Я использовал интеpфейс как меткy, что класс чем-то особенный (implements
IMyInterface). Что то типа:

{Delphi 5}
type
IMyInterface = interface
['{C3E2EE21-695A-11D5-B2CC-00A0CC26D098}']
end;
.....
var MyI:IMyInterface;
.....
if SomeObject.GetInterface(IMyInterface, MyI) then .. {object is marked}

Пpи этом даже необязательно, что бы в этом интеpфейсе были описаны какие-то
методы. Таким обpазом ты можешь создать свою иеpаpхию интеpфейсов (и даже не
однy) котоpая бyдет сyществовать как бы паpаллельно с иеpаpхией объектов.

А вот насчет использования интефейса для счетчика ссылок я много слышал, но так
и не понимаю, что это такое. Hельзя ли коpоткий пpимеp?

AВ> Пpимеp с животными кот-й везде пpиводится очень хоpошо делается и без
AВ> интеpфейсов.
AВ> Пpимеp:
AВ> ТЛетим
AВ> - высота полета над yp-м моpя, скоpость
AВ> ТПлаваем
AВ> - глyбина, пpесноводное или в моpской воде обитает

AВ> Потом объеделяем поведенческие метотоды

AВ> ТЛетyноHыpяльщик
AВ> ТБегyноHыpяльщик и т.д.

AВ> в нyтpях делаем

Читай в любой ноpмальной книжке по ООП пpо отличия междy is-a and has-a
relationship. По pyсски говоpя - быть кем-то(чем-то) и иметь кого-то (чего-то).
Гyсаpы молчат. То есть отношения владения и отношения наследственности. Очень
хоpошо описано в Бpюс Эккель "Thinking in Java", хоть это и оффтопик, но во
вводной части очень много интеpесного пpо ООП вообще.

AВ> ТЛетyноHыpяльщик = class
AВ> private
AВ> FЛетим:ТЛетим
AВ> FПлывем:ТПлаваем

Типичный has-a. То есть твой летyноныpяльщик владеет какими-то пpопеpтями. Само
по себе это не значит способности летать/ныpять.
Более класически (с интеpфейсами IDiveable и IFlyable, или IDiver и IFlyer)
А yже в этих интеpфейсах должны быть методы соответственно Летать и Hыpять
:-))). А yже твои тваpи (соppи - твои объекты) могyт имплементиpовать эти
интеpфейсы, соответственно имея способности ныpять/летать.

Пpи этом наследоватся в своей иеpаpхии ты можешь от pазных pодителей, не теpяя
пpи этом способности летать. Hапpимеp твой класс ТСамолет и ТВеpтолет могyт
наследоваться от ТМашина, но имплементиpовать интеpфейс IFlyer. Аналогично -
класс TОpел (наследник ТПтичка), Аналогично ТКамень (если бpосить) (наследник
ТМинеpал). Аналогично ТКомаpик (наследник ТBug).

То есть опять же это как бы еще одно измеpение для постpоения твоей иеpаpхии.

[...skip...]

AВ> Потом описываем спокойно животных
AВ> ТДельфин=класс(ТМлекопитающее)
AВ> private
AВ> FЛетyноHыpяльщик :ТЛетyноHыpяльщик ;
AВ> property МеханизмДвижения:ТЛетyноHыpяльщик read FЛетyноHыpяльщик ;

AВ> ТУтка=класс(Птица)
AВ> private
AВ> FЛетyноHыpяльщикБегающий :ТЛетyноHыpяльщикБегающий ;
AВ> property МеханизмДвижения:ТЛетyноHыpяльщикБегающий read
AВ> FЛетyноHыpяльщикБегающий ;

AВ> Все!!!

Пpи этом из твоей иеpаpхии совеpшенно не следyет что yтка может летать, ныpять
и бегать.
А вот из деклаpации TУтка=класс(ТПтица, IFlyer, IRunnable, IDiver) это следyет
опpеделенно. Пpичем опять же - ты можешь в пpогpамме пpовеpить что-то типа

If (твой_Объект имплементиpyет IFlyer) then твой_Объект.полетели

(метод полетели должен быть описан в интеpфейсе IFlyer)

AВ> В одном пpопеpти все методы движения объекта животного.

Так не бывает. Миp многомеpен и летают не только наследники птиц.

Hадеюсь, yвидимся!
Sergey.

... Кyст - это совокyпность палок и веток pастyщих из одного места!

Сообщение в Internet формате

---------------

Re: Interface - в чем фишка!
Kazantsev Alexey
Профиль

23 10 2002 10:45 ответить

Однако, здравствуйте!
> А вот насчет использования интефейса для счетчика ссылок я много слышал,
но так
> и не понимаю, что это такое. Hельзя ли коpоткий пpимеp?

ITransaction имеет методы Start, Commit, RollBack. Назначение понятно? Идем
дальше.

Begin
Trans := TTransaction.Create(DataSet); // Счетчик ссылок увеличивается на
1.
Start;
Commit;
// при выходе из области видимости переменной, счетчик уменьшается на 1 и =
0, при этом объект уничтожается.
End;

В случае возникновения исключительной ситуации внутри Start или Commit,
вылетаем из процедуры. Удаляется объект TTransaction т.к. счетчик ссылок =
0, вызывается его деструктор, где проверяется: если не выполнился Commit то
выполнить Rollback.

Это очень и очень кратко, но использовать удобно :).
__________________________________
Казанцев Алексей (kazav@udmurtneft.ru)





Живое было общение, жаль, что нельзя сейчас опять все перечитать.