Интересный кусок в кодах VCL

← →
Daniel (2004-05-02 21:11) [0]

if FDeviceType <> dtAutoSelect then FFlags := FFlags or mci_Open_Type; if FDeviceType <> dtAutoSelect then FFlags := FFlags or mci_Open_Type else FFlags := FFlags or MCI_OPEN_ELEMENT;

Здесь заложен глубокий смысл, которого я, очевидно, не понимаю, или это просто описка?

P.S. Модуль MPlayer.pas, строка 841 (Delphi 7)

← →
Rouse_ © (2004-05-02 21:17) [1]

:)
Действительно, есть такое :)
Даже в шестом Дельфи ...

← →
DrPass © (2004-05-02 21:36) [2]

Думаете, программисты Borland не делают ошибок?

← →
Gero © (2004-05-02 21:37) [3]

Возможно между второй и четвертой строкой этого кода изначально что-то было, или планировалось.
Что-то, что должно изменять значение FDeviceType.

Д3
if FDeviceType <> dtAutoSelect then FFlags := FFlags or mci_Open_Type;

Д5
if FDeviceType <> dtAutoSelect then FFlags := FFlags or mci_Open_Type else FFlags := FFlags or MCI_OPEN_ELEMENT;

Так что предположение Gero верное

Что касается Delphi 5, то там

> if FDeviceType <> dtAutoSelect then
> FFlags := FFlags or mci_Open_Type
> else
> FFlags := FFlags or MCI_OPEN_ELEMENT;

также располагается в строке 841

Интересный кусок в кодах VCL Найти похожие ветки