Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

Интересный кусок в кодах 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.


 
Anatoly Podgoretsky ©   (2004-05-02 22:10) [4]

Д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 верное


 
Apl ©   (2004-05-03 04:57) [5]

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

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

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



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.034 c
14-1083753084
Nick-From
2004-05-05 14:31
2004.05.23
преобразовать массив


11-1070887951
Phantom
2003-12-08 15:52
2004.05.23
KOL&amp;MCK выкидывают мой код... Что делать ?


3-1083062318
UE
2004-04-27 14:38
2004.05.23
DBExpress -> TSQLConnection -> DBX Error: ...


4-1081225444
Sirus
2004-04-06 08:24
2004.05.23
Вызов модальной формы в DLL из DLL...


1-1084039313
studentRSU
2004-05-08 22:01
2004.05.23
Слайд-шоу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский