1. Список говнокодов пользователя LightBlack

    Всего: 1

  2. Pascal / Говнокод #9979

    +73

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    function ADHasFactory(const AIID: TGUID): Boolean;
var
  oIntf: IUnknown;
begin
  try
    ADCreateInterface(AIID, oIntf, False);
    Result := oIntf <> nil;
  except
    Pointer(oIntf) := nil;
    Result := False;
  end;
end;

    AnyDAC. Проверка наличия фабрики для заданного интерфейса.

    LightBlack, 18 Апреля 2012

    Комментарии (11)