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

Вниз

Нужен толковой пример по работе с интерфейсами...   Найти похожие ветки 

← →
WoW   (2006-10-08 12:46) [0]

Совсем небольшой... Но понятный...

---

← →
Kolan ©   (2006-10-08 13:42) [1]

Интерфейс
IMyInterface = interface
   procedure MyProc;
 end;

Поддерживающий его класс
 TMyClass = class(TInterfacedObject, IMyInterface)
   procedure MyProc;
 end;

Приер использования:
procedure TForm3.BitBtn1Click(Sender: TObject);
var
 MyInterface: IMyInterface;
begin
 MyInterface := TMyClass.Create;
 MyInterface.MyProc;
end;

---

← →
Kolan ©   (2006-10-08 13:43) [2]

Забыл реализация MyProc в классе TMyClass:
procedure TMyClass.MyProc;
begin
 ShowMessage("Hellow world!");
end;

---

← →
WoW   (2006-10-08 13:46) [3]

Kolan ©   (08.10.06 13:43) [2]
Спасибо, одно осталось не ясно зачем нужен GUID?

---

← →
Kolan ©   (2006-10-08 13:52) [4]

> GUID

Скачай книгу
Delphi 5. Руководство разработчика, том 1 и 2
Отсюда:
http://www.podgoretsky.com/ddp.html

В томе 2 про COM ввсе расписано.

А GUID используется для уникальнойидентификации интерфейсов в COM.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.165 c