20 февраля 2016 г.

Ответ на задачку №20

Ответ на задачку №20.

Полный код в задачке был такой:
type
  IMyInterface = interface
  ['{ED93FF5F-C09B-4DC7-9AA1-A826ABC9EFA2}']
    procedure Handle;
  end;

  IMyInterface2 = interface(IMyInterface)
  ['{E61A8B64-0CB0-443E-931A-AAE429A8FF48}']
  end;

  TMyObject = class(TInterfacedObject, IMyInterface, IMyInterface2)
  protected
    procedure _Handle;
    procedure IMyInterface.Handle = _Handle;
  end;

procedure TMyObject._Handle;
begin
end;
;)

2 комментария :

  1. В чем же все-таки причина ошибки?
    Почему бы в TMyObject не написать вместо
    procedure IMyInterface.Handle = _Handle;
    короче:
    procedure Handle = _Handle;

    ОтветитьУдалить
  2. Чтобы избежать ошибки компиляции Error: E2291 Missing implementation of interface method IMyInterface.Handle
    в TMyObject надо написать так:
    procedure IMyInterface.Handle = _Handle;
    procedure IMyInterface2.Handle = _Handle;
    Если одно из них опустить, будет одинаковая ошибка.
    Хотя по смыслк должно было быть сообщение: Missing implementation of interface method IMyInterface2.Handle

    ОтветитьУдалить

Можно использовать некоторые HTML-теги, например:

<b>Жирный</b>
<i>Курсив</i>
<a href="http://www.example.com/">Ссылка</a>

Вам необязательно регистрироваться для комментирования - для этого просто выберите из списка "Анонимный" (для анонимного комментария) или "Имя/URL" (для указания вашего имени и (опционально) ссылки на сайт). Все прочие варианты потребуют от вас входа в вашу учётку (поддерживается OpenID).

Пожалуйста, по возможности используйте "Имя/URL" вместо "Анонимный". URL можно просто не указывать.

Ваше сообщение может быть помечено как спам спам-фильтром - не волнуйтесь, оно появится после проверки администратором.