Discussion :

[mohamed]

Bonjour,

Je voudrais changer mes parametres régionaux pour mettre le "." à la

place de la "," et ceci juste avant d'exécuter d'une fonction .Puis juste

apres, je voudrais remettre les parametres normaux.

Puis-je avoir un bout de code ou des indications?

Merci.

[Rayek]

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
 
var
  OldDecimal : char;
begin
 
  OldDecimal := DecimalSeparator;
  DecimalSeparator := '.';
  try
 
// le traitement
 
  finally
    DecimalSeparator := OldDecimal;
  end;
end;

[mohamed]

Merci.

Mais j'ai l'impression que ca ne marche pas.

En effet, j'ai vérifié mes parametre regionaux dans Demarrer/Prametres/Parametres Regionaux et j'ai changé mon parametre en "," puis j'ai exécuté la fonction suivante (sur le clic d'1 bouton) :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  OldDecimal : char;
begin
 
  OldDecimal := DecimalSeparator;
  DecimalSeparator := '.';
end;

Et quand je retourne sur Demarrer/Prametres/Parametres Regionaux , rien n'a changé.

[mohamed]

Tojours pas de réponse à la question???

[Rayek]

Fait une recherche avancée sur le forum, y a eu la réponse a ta question.

C'est une variable à mettre à true ou false

[mohamed]

Oui j'ai vu le code.
Il s'agit de :

Code :

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

Application.UpdateFormatSettings := False;

.
Mais ca ne marche pas.
Mes parametres regionaux ne changent toujours pas.
Y'a-t-il d'autres choses à changer??

[Graffito]

Bonjour,

L'affectation du DecimalSeparator n'a qu'une portée temporaire limitée à l'application. Donc, il est normal que les settings Window ne soient pas modifés. Toutefois, l'appli Dephi se comportera comme s'ils l'étaient.

Pour modifier les settings généraux, il faut aller modifier la base de registre.