VPF::Реализация интерфейсов делегированием

Avers

Дата 29.9.2008, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 20.6.2008
Где: 26rus

Репутация: нет
Всего: нет

Прочел статью
http://forum.vingrad.ru/articles/topic-157587.html
теперь хотелось бы прочитать пример.
smile

Это сообщение отредактировал(а) Avers - 29.9.2008, 14:49

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

Born to be wild

Felan

Дата 1.10.2008, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 2.8.2007
Где: Самара

Репутация: 2
Всего: 7

Код


unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm5 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  IMyInterface = interface
    procedure MyBeep();
  end;

  TMyInterfacedObject = class(TInterfacedObject, IMyInterface)
    procedure MyBeep();
  end;

  TMyObject = class(TInterfacedObject, IMyInterface)
  private
    fMIntObj: IMyInterface;
  public
    property MIntObj: IMyInterface read fMIntObj implements IMyInterface;
    constructor Create();
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

{ TMyInterfacedObject }

procedure TMyInterfacedObject.MyBeep;
begin
  Beep();
end;

{ TMyObject }

constructor TMyObject.Create;
begin
  fMIntObj := TMyInterfacedObject.Create();
end;

{ TForm5 }

procedure TForm5.Button1Click(Sender: TObject);
var
  vObj: IMyInterface;
begin
  vObj := TMyObject.Create();
  vObj.MyBeep();
end;

end.

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

// Любая сложная система - это темный лес. Каждый в этом лесу протаптывает свои тропинки, по ним и бегает. Лишь изредка, сходя с них, мы находим много интересного, а порою и страшного.

Avers

Дата 3.10.2008, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 20.6.2008
Где: 26rus

Репутация: нет
Всего: нет

Спасибо)

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

Born to be wild

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »