Форум: "Начинающим";
Текущий архив: 2013.04.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Grimm375   (2012-10-11 11:09) [0]

Как можно в 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);

---

← →
Grimm375   (2012-10-11 11:10) [1]

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


var
 S: string;
begin
 {$DEFINE EN}

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

 ShowMessage(S)
;

---

← →
Ega23 ©   (2012-10-11 11:16) [2]

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

---

← →
Плохиш ©   (2012-10-11 11:25) [3]


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



---

← →
han_malign   (2012-10-11 14:39) [4]

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


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.04.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c