Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];

Вниз

Интерфейсы   Найти похожие ветки 

 
IvanS   (2007-12-18 19:02) [0]

В каком случае требуется использовать (оправданное использование) интерфесов (я не говорю про COM"овские, я про обычные interface в Delphi)? Приведите пример задачи.

Спасибо.


 
Palladin ©   (2007-12-18 19:07) [1]

ну... случаев очень много... основные:
1. аналог множественного наследования
2. автоматическое освобождение объектов при выходе из области видимости переменной

смотреть нужно по ситуации...
мне они например очень пригодились при использовании RemObject Pascal Script, бо некоторые чайниканутые скриптологи совсем не задумываются об освобождении объектов...


 
Ins ©   (2007-12-18 19:28) [2]

На мой взгляд, самое элегантное - следующее применение: иногда у совсем неродственных объектов могут быть одинаковые методы и должна быть возможность единым образом их вызывать. Например, у нас такая ситуация:
TMyStrings = class(TStrings)
TMyGraphic = class(TGraphic)
Классы совершенно не родственны, но допустим, у каждого из них есть метод
procedure SaveToFile(FileName: String);
И нам нужно написать функцию, которая принимает объект любого из этих классов и сохраняет в файл:
procedure SaveObjectToFile(Obj: TObject; FileName: String);

Ее можно было бы реализовать так:
procedure SaveObjectToFile(Obj: TObject; FileName: String);
begin
 if Obj is TMyStrings then
   TMyStrings(Obj).SaveToFile(FileName);
 if Obj is TMyGraphic then
   TMyGraphic(Obj).SaveToFile(FileName);
end;

Ну а если у нас таких классов не два, а скажем, десять, или их число неограничено вовсе. Как быть тогда? Тут интерфейсы и помогут:

IMyFiler = interface
 procedure SaveToFile(FileName: String);
end;

TMyStrings = class(TStrings, IMyFiler);
TMyGraphic = class(TGraphic, IMyFiler);


А процедуру перепишем так:
procedure SaveObjectToFile(Obj: TObject; FileName: String);
var
 Intf: IMyFiler;
begin
 if Supports(Obj,IMyFiler,Intf) then Intf.SaveToFile(FileName);
end;



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.01.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.05 c
2-1197995133
Виктор
2007-12-18 19:25
2008.01.20
Сворачивание окна


15-1197295733
Riply
2007-12-10 17:08
2008.01.20
Результат трехчасовых поисков ошибки в проекте :)


15-1197754927
Johnmen
2007-12-16 00:42
2008.01.20
Отдам в хорошие руки. Москва.


2-1198163147
Stepper
2007-12-20 18:05
2008.01.20
Как сделать счетчик строк в RichEdit1.Lines.Add...


1-1192715378
Still Swamp
2007-10-18 17:49
2008.01.20
Мои Messages





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский