Discussion :

[ushu]

Salut tout le monde !

Je voulais savoir s'il est possible d'utiliser les directives de compilations comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Const
  LANG_FR = 'FR';
  LANG_AN = 'AN';
...
{$DEFINE LANG = LANG_FR}
...
{$IF LANG = LANG_FR}
...
{$ELSEIF LANG = LANG_AN}
...
{$IFENF}
...
{$UNDEF LANG}

au lieu de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Const
  LANG_FR = 'FR';
  LANG_AN = 'AN';
...
{$DEFINE LANG_FR}
...
{$IFDEF LANG_FR}
...
{$ENDIF}
 
{$IFDEF LANG_AN}
...
{$ENDIF}
...

En attendant, j'essai diverses manips.
Merci d'avance.

[Smortex]

Voilà comment tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
const
  Lang = 'az';
 
procedure Foo;
begin
  {$IF Lang = 'Fr'}
    ShowMessage('Francais !');
  {$ELSEIF Lang = 'En'}
    ShowMessage('Anglais !');
  {$ELSE}
    ShowMessage('ß-#ÿ:©?§ !');
  {$IFEND}
end;

Note que dans ce cas, ca n'est pas astucieux, il vaut mieux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  Lang = 'az';
  {$IF Lang = 'Fr'}
    AMessage = 'Francais !';
  {$ELSEIF Lang = 'En'}
    AMessage = 'Anglais !';
  {$ELSE}
    AMessage = 'ß-#ÿ:©?§ !';
  {$IFEND}
 
procedure Foo;
begin
  ShowMessage(AMessage);
end;

Bon développement !

[ushu]

Nikkel !!!

Merci beaucoup !!

C'est exactement ça :

const
Lang = 'az';

procedure Foo;
begin
{$IF Lang = 'Fr'}
ShowMessage('Francais !');
{$ELSEIF Lang = 'En'}
ShowMessage('Anglais !');
{$ELSE}
ShowMessage('ß-#ÿ:©?§ !');
{$IFEND}
end;

Mais je m'en servait pour des constantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
const 
  Lang = 'Fr'; 
 
  {$IF Lang = 'Fr'} 
    TitreForm = 'Mon titre en Francais !'; 
  {$ELSEIF Lang = 'En'} 
    TitreForm = 'My Title in English !';

En attendant, j'ai fait les divers
{$DEFINE LANG_FR}
...
{$IFDEF LANG_FR}
...
{$ENDIF}
...
{$IFDEF LANG_AN}
...
etc...

Merci encore !!! [/code]