Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Kolan © (2007-11-21 11:57:00)
Первый вопрос — сабж.

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

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

А в D7 его нет.

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

{$IFDEF …}
function CreateMenuItem: TMenuItem;
{$ENDIF}

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

Где … — «Версия делфи 7 и ниже».

{RASkov} (2007-11-21 14:53:00) [1]
> [10] Германн © (21.11.07 14:44)

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

Германн (2007-11-21 14:44:00) [2]

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

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

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

Kolan (2007-11-21 14:17:00) [3]
> АВ будет

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

{RASkov} (2007-11-21 12:53:00) [4]
> [7] Kolan © (21.11.07 12:46)
> Да ну их, я их не видел в глаза ни разу… :)

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

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

Kolan (2007-11-21 12:46:00) [5]
> или ну их нафик

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

{RASkov} (2007-11-21 12:41:00) [6]
> [5] Kolan © (21.11.07 12:38)

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

Kolan (2007-11-21 12:38:00) [7]
> Да нет вроде…
> У тебя:

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

{RASkov} (2007-11-21 12:26:00) [8]
> [3] Kolan © (21.11.07 12:17)
> Правильно я сделал?

Да нет вроде...
У тебя:
{$IFDEF VER130} {$DEFINE Delphi 5} {$ENDIF} {$IFDEF VER140} {$DEFINE Delphi 6} {$ENDIF} {$IFDEF VER150} {$DEFINE Delphi 7} {$ENDIF}

Kolan (2007-11-21 12:17:00) [9]
Правильно я сделал?
{$IFDEF VER130} {$DEFINE Delphi7OrOlder} {$ENDIF} {$IFDEF VER140} {$DEFINE Delphi7OrOlder} {$ENDIF} {$IFDEF VER150} {$DEFINE Delphi7OrOlder} {$ENDIF}

{RASkov} (2007-11-21 12:11:00) [10]
{$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

Правильный_Вася (2007-11-21 12:05:00) [11]
посмотри в джедаях или rx - там много такого добра

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »