12 декабря 2013 г.

Страшный ужас

Нормально ли выполнится этот код на Delphi 2007?
const
  S_NONE = $00000002;

type
  TSendResult = (
    srNoExceptionInfo    = S_NONE,        // = $00000002
    srUnsupportedSender  = E_NOINTERFACE  // = $80004002
  );

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSendResult;
begin
  SR := srUnsupportedSender;
  Assert(Ord(SR) = Ord(E_NOINTERFACE));
end;
Правильный ответ: НЕТ. SR будет равен srNoExceptionInfo.

Крепче всего спит тот, кто не подписан на QC.

P.S. По поводу задачки №17 - там ещё ответы время от времени сыплются, поэтому пока ничего не публикую, самому интересно читать...

6 комментариев :

  1. > По поводу задачки №17 - там ещё ответы время от времени сыплются

    WTF? За последний месяц там отписалась всего пара неадекватов про C# да цикл с i: word. Дело конечно ваше, можете хоть через год ответы выкладывать, только некрасиво получается, когда озвучивается срок в две недели, а потом тишина на два месяца...

    ОтветитьУдалить
  2. Никакого ужаса: значение E_NOINTERFACE не влазит в тип Integer ($7FFFFFFF) вот оно и глючит. У меня при присвоении srUnsupportedSender значения $80000000 и попытке записать его в SR, оказывается [b](out of bound) 0[/b].

    ОтветитьУдалить
  3. > значения $80000000

    ТАм ещё 4-ка в середине - ей-то куда деваться?

    ОтветитьУдалить
  4. + для XE2: компилятор для типа подобного TSendResult не создает RTTI :-(

    ОтветитьУдалить
  5. А можно описать что д2007 генерит? Почему такое происходит? А то не у всех же д2007 стоит, а знать такую особенность не помешает.

    ОтветитьУдалить
  6. D2007 и ниже считает SizeOf(TSendResult) = 1 со всеми вытекающими. D2009+ - полёт нормальный.

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

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

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

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

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

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