Discussion :

[mimiferry]

Bonjour,

Une petite question toute bête !

Sous Delphi XE8, Est il possible d'afficher dans un TEdit la valeur d'un attribut boolean en français ?c'est à dire (Vrai / faux, Oui/Non) au lieu de (True/False )
Peut etre cela dépend de la langue de la version delphi utilisé, mais ça m'affiche que'en anglais !!

[SergioMaster]

Bonjour,

rien n'empêche de changer TrueBoolStrs et FalseBoolStrs

en exemple : TrueBoolStrs[0]:='Oui'; mais ce n'est certainement pas la meilleure manière de faire il y a un moyen (une fonction?) qui permet de rajouter des chaines à ces deux tableaux mais je ne remets pas le clavier dessus

[Edit] toujours pas trouvé mais voici un petit truc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
   if BoolTostr(true,true)='Oui' then exit;      // a le mérite d'initialiser TrueBoolStrs
   SetLength(TrueBoolStrs, 3);
   TrueBoolStrs[1]:=BoolToStr(True,True);
   TrueBoolStrs[0]:='Oui';   // Oui devient l'affichage par défaut
   TrueBoolStrs[2]:='O';
   if StrToBool('Oui') then  Memo2.Lines.add('Oui est ok');
   if StrToBool('O') then  Memo2.Lines.add('O est ok');
   if StrToBoolDef('Z',False) then  Memo2.Lines.add('Z est ok');
   Memo2.Lines.Add('BoolTostr '+BoolToStr(True,True))
end;

un code plus simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TMainForm.Button1Click(Sender: TObject);
begin
   if BoolTostr(true,true)='Oui' then exit;      // il faut initialiser 
  // on localise 
    TrueBoolStrs:=['Oui','True','O'];
    FalseBoolStrs:=['Non','False','N']);
// test 
   if StrToBool('Oui') then  Memo2.Lines.add('Oui est ok');
   if StrToBool('O') then  Memo2.Lines.add('O est ok');
   if StrToBoolDef('Z',False) then  Memo2.Lines.add('Z est ok');
   Memo2.Lines.Add('BoolTostr '+BoolToStr(True,True))
end;

je suggère quand même de garder 'True' et 'False' juste au cas où pour les Livebindings

[Andnotor]

Code :

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

// il faut initialiser

C'est pas nécessaire (ou en tout cas plus sous les Delphi récents). Uniquement TrueBoolStrs := ['Oui','True','O'];

[mimiferry]

Merci de votre réponse

Ce Code nécessite l'implantation d'un bouton, mais ce n'est malheureusement pas ce que je recherche, car j'aimerai utiliser un "DBNavigator" pour voir défiler les valeurs d'attributs dans un Edit par exemple

La première méthode que vous m'avez proposé me semble meilleur (TrueBoolStrs[0]:='Oui') mais hélas mes connaissances basiques en Delphi ne me permette pas de trouver cette méthode
J'ai cherché dans les propriétés mais je ne trouve pas

Pourriez vous me donner plus de d'info sur celle ci ? Merci

[SergioMaster]

Re,

@Andnotor si j'ai indiquer la nécessité d'initialiser c'est que j'ai lu ceci

Remarque : Les variables TrueBoolStrs et FalseBoolStrs ne sont pas définies au démarrage d'une application. Toute utilisation de la routine StrToBool, BoolToStr ou TryStrToBool provoque l'initialisation de ces variables avec les valeurs par défaut ci-dessus.

@mimiferry
je n'ai mis ce code que pour illustrer mon propos. Dans le OnCreate de votre forme il vous suffirait d'écrire

Code :

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

1
2
3
4
5
6
   if BoolTostr(true,true)<>'Oui' then       // il faut initialiser 
    begin
    // on localise 
    TrueBoolStrs:=['Oui','True','O'];
    FalseBoolStrs:=['Non','False','N']);  
    end;

s'il s'avérait que la mise en garde sur l'initialisation soit fausse alors les deux lignes importantes ne seraient que

Code :

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

1
2
    TrueBoolStrs:=['Oui','True','O'];
    FalseBoolStrs:=['Non','False','N']);

ces deux variables sont contenues dans System.SysUtils qu'il faut donc, bien sûr, ajouter à la liste des uses

[Andnotor]

la mise en garde sur l'initialisation

Initialiser pour ré-initialiser juste derrière n'a pas de sens

C'est juste une "remarque", pas une "mise en garde". Ça indique simplement que si on n'a pas pris soin de définir les textes, ce sont des textes par défaut qui sont utilisés.

[mimiferry]

ça fonctionne très bien

Merci encore de votre réponse !