Главная страница
    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.036 c
3-1082991554
Frozzen
2004-04-26 18:59
2004.05.23
Как запрос написать


1-1083862732
Алексей Петухов
2004-05-06 20:58
2004.05.23
OnClose в объекте TToolBar


6-1080983791
V@LER@N
2004-04-03 13:16
2004.05.23
Простой сниффер


14-1083139177
stone
2004-04-28 11:59
2004.05.23
Письмо в КП :))


14-1083791552
saNat
2004-05-06 01:12
2004.05.23
Хоккей. США - Чехия 3-2





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский