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}

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