Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.04.21;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
15-1356325818
Андреевич
2012-12-24 09:10
2013.04.21
sql-запрос


15-1356068940
azlk52
2012-12-21 09:49
2013.04.21
osk.exe не запускается


2-1349962404
Wadimka
2012-10-11 17:33
2013.04.21
Как изменить имя текущего пользователя Windows?


3-1288770448
evgen2301
2010-11-03 10:47
2013.04.21
Запрет редактирования записей


15-1356278161
Baks
2012-12-23 19:56
2013.04.21
Видеокамеру хочу купить