Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Интересный кусок в кодах 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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.034 c
1-1083916734
En
2004-05-07 11:58
2004.05.23
Контроль другого приложения через проект дельфи


3-1083146032
samovar inc.
2004-04-28 13:53
2004.05.23
значение вставить в поле базы


1-1083844792
Akni
2004-05-06 15:59
2004.05.23
Использование Delphi-DLL в VB


4-1081345640
Comp
2004-04-07 17:47
2004.05.23
Шрифт


9-1071243483
KefiR™
2003-12-12 18:38
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский