| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

if else if несколькольких дефайнов

Grimm375 ©   (2012-10-11 11:09:00) 

Как можно в Delphi 7 разветвить несколько дефайнов, например: by, ru, en. Так не работает, выводит - by.

var
 S: string;
begin
 {$DEFINE EN}

 {$IFDEF EN}
 S := 'ru';
 {$ELSEIF EN}
 S := 'en';
 {$ELSE}
 S := 'by';
 {$IFEND}

 ShowMessage(S);

---

han_malign   (2012-10-11 14:39:00) [1]

const defLang = 'en';
...
{$IF Declared(defLang)}
  {$IF defLang = 'ru'}
    s:= 'ru';
  {$ELSEIF defLang = 'en'}
    s:= 'en';
  {$ELSE}
    s:= defLang;
  {$IFEND}
{$ELSE}
    s:= 'by';
{$IF}


---

Плохиш   (2012-10-11 11:25:00) [2]


{$IF Defined(RU) }
 ...  
{$ELSEIF Defined(ЕН) }
 ...  
{$ELSE}
 ...  
{$IFEND}



---

Ega23   (2012-10-11 11:16:00) [3]

{$ifdef en}
 s := 'en';
{$endif}
{$ifdef ru}
 s := 'en';
{$endif}
{$ifdef by}
 s := 'by';
{$endif}

---

Grimm375   (2012-10-11 11:10:00) [4]

опечатка, такой


var
 S: string;
begin
 {$DEFINE EN}

 {$IFDEF RU}
 S := 'ru';
 {$ELSEIF EN}
 S := 'en';
 {$ELSE}
 S := 'by';
 {$IFEND}

 ShowMessage(S)
;

---

Наверх