Как опредилить версию делфи для усл компиляции?

← →
Kolan © (2007-11-21 11:57) [0]

Первый вопрос  сабж.

Второй  обяъсню суть может идея не верна.

В BDS есть метод у TMainMenu
CreateMenuItem;

А в D7 его нет.

Правильно ли я понял, что мне надо написать так:

{$IFDEF &#133}
function CreateMenuItem: TMenuItem;
{$ENDIF}

{$IFDEF &#133} function TDynamicMainMenu.CreateMenuItem: TMenuItem; begin Result := TMenuItem.Create(Self); end; {$ENDIF}

Где &#133  «Версия делфи 7 и ниже».

← →
Правильный_Вася (2007-11-21 12:05) [1]

посмотри в джедаях или rx - там много такого добра

← →
{RASkov} (2007-11-21 12:11) [2]

{$IFDEF VER93} { Borland C++Builder 1.0 }
{$DEFINE CBUILDER}
{$ENDIF}

{$IFDEF VER100} { Borland Delphi 3.0 }
{$DEFINE RX_D3}
{$ENDIF}

{$IFDEF VER110} { Borland C++Builder 3.0 }
{$DEFINE CBUILDER}
{$ObjExportAll On}
{$UNDEF DCS}
{$ENDIF}

{$IFDEF VER120} { Borland Delphi 4.0 }
{$DEFINE RX_D3}
{$DEFINE RX_D4}
{$ENDIF}

{$IFDEF VER125} { Borland C++Builder 4.0 }
{$DEFINE CBUILDER}
{$ObjExportAll On}
{$UNDEF DCS}
{$ENDIF}

{$IFDEF VER130} { Borland Delphi 5.0 }
{$DEFINE RX_D3}
{$DEFINE RX_D4}
{$DEFINE RX_D5}
{$ENDIF}

{$IFDEF VER140} { Borland Delphi 6.0 }
{$DEFINE RX_D3}
{$DEFINE RX_D4}
{$DEFINE RX_D5}
{$DEFINE RX_D6}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}

{$IFDEF VER150} { Borland Delphi 7.0 }
{$DEFINE RX_D3}
{$DEFINE RX_D4}
{$DEFINE RX_D5}
{$DEFINE RX_D6}
{$DEFINE RX_D7}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}

{$IFNDEF VER80} { Delphi 1.0 }
{$IFNDEF VER90} { Delphi 2.0 }
{$IFNDEF VER93} { C++Builder 1.0 }
{$DEFINE RX_D3} { Delphi 3.0 or higher }
{$IFNDEF VER100}
{$DEFINE RX_V110} { C++Builder 3.0 or higher }
{$IFNDEF VER110}
{$DEFINE RX_D4} { Delphi 4.0 or higher }
{$IFNDEF VER120}
{$DEFINE RX_V125} { C++Builder 4.0 or higher }
{$IFNDEF VER125}
{$DEFINE RX_D5} { Delphi 5.0 or higher }
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}

{$IFDEF CBUILDER}
{$DEFINE USE_PROGRESSBAR}
{$UNDEF USE_OLD_DBLISTS}
{$IFNDEF VER93}
{$DEFINE RX_V110} { C++Builder 3.0 or higher }
{$IFNDEF VER110}
{$DEFINE RX_V125} { C++Builder 4.0 or higher }
{$ENDIF}
{$ENDIF}
{$ENDIF}

{$IFNDEF RX_D3}
{$DEFINE DCS}
{$UNDEF RX_MIDAS}
{$ENDIF}

{$IFNDEF RX_D5}
{$UNDEF RX_ADO}
{$ENDIF}

{$IFNDEF DCS}
{$UNDEF RX_MIDAS}
{$UNDEF RX_ADO}
{$ENDIF}

RX.INC

← →
Kolan © (2007-11-21 12:17) [3]

Правильно я сделал?
{$IFDEF VER130} {$DEFINE Delphi7OrOlder} {$ENDIF} {$IFDEF VER140} {$DEFINE Delphi7OrOlder} {$ENDIF} {$IFDEF VER150} {$DEFINE Delphi7OrOlder} {$ENDIF}

← →
{RASkov} (2007-11-21 12:26) [4]

> [3] Kolan © (21.11.07 12:17)
> Правильно я сделал?

Да нет вроде...
У тебя:
{$IFDEF VER130} {$DEFINE Delphi5} {$ENDIF} {$IFDEF VER140} {$DEFINE Delphi6} {$ENDIF} {$IFDEF VER150} {$DEFINE Delphi7} {$ENDIF}

← →
Kolan © (2007-11-21 12:38) [5]

> Да нет вроде&#133
> У тебя:

См. [0]
Где … — «Версия делфи 7 и ниже».

← →
{RASkov} (2007-11-21 12:41) [6]

> [5] Kolan © (21.11.07 12:38)

Моя ступил:)
Тады да... только тебе еще и 1,2,3,4 делфи нужно учесть, или ну их нафик.... :)

← →
Kolan © (2007-11-21 12:46) [7]

> или ну их нафик

Да ну их, я их не видел в глаза ни разу&#133 :) Благодарю.

← →
{RASkov} (2007-11-21 12:53) [8]

> [7] Kolan © (21.11.07 12:46)
> Да ну их, я их не видел в глаза ни разу… :)

А как же тогда ветвление будет?
т.е. если делфи 5, 6 или 7 то так - иначе, если 1,2,3,4, 2006, 2007, (вообщем все после 7), то так....
АВ будет :)

ЗЫ Перед D7 я пользовал D4.) D4 - вещь... устаревшая(

> АВ будет

АВ не будет  не скомпилится&#133 Лана исправил.

> {RASkov} (21.11.07 12:53) [8]

> D4 - вещь... устаревшая(

Но-но. Не замай своими лапами хрустальную мечту!

← →
{RASkov} (2007-11-21 14:53) [11]

> [10] Германн © (21.11.07 14:44)

:)
Наверное не правильно понят мой ЗЫ :)
Для меня есть две версии D - это 4 и 7.
Остальные - либо я не видел, либо - "не то".... Не видел версии моложе седьмой...
Просто с выходом 7, я посчитал четверку "немного устаревшей"... Во как :)

Как опредилить версию делфи для усл компиляции? Найти похожие ветки