Discussion :

[Andnotor]

Oups, j'ai relu entièrement cette discussion où je n'ai jamais parlé de date ... mais c'est pas grave.

Ça n'était que par analogie (problème de format) mais j'aurais en effet pu rester sur les réelles, une requête select * from MyTable where MyFloat=5,5 ne fonctionnerait pas mieux

[DomDA91]

Bonjour à tous..

si tu ne veux pas lever d'exception, tu as la fonction :

Code :

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

   StrToFloatDef(const S: string; const Default: Extended): Extended

Qui en cas d'erreur renvoie la valeur Default (mais ce n'est pas tout à fait pareil qu'un code d'erreur ! et inutilisable pour détecter l'erreur si S peut prendre la valeur Default ...)

Mais on peut fixer Default à NAN et ensuite tester le résultat avec la fonction IsNan()

[DomDA91]

A voir encore :

• Les formes étendues des fonctions de conversion StrToXxxx ou XxxxToStr qui disosent d'un paramètre supplémentaire FormatSettings de type TFormatSettings. Ce paramètre permet de définir d'autres informations de localisation sans modifier les parmètres de localisation généraux de l'application.
  
• Les formes TryStrToXxx qui renvoient un boolen True si la conversion est réussie.

[Charly910]

Bonjour,

@ DomDA91 :
Super, je ne connaissais pas Nan et IsNan c'est très pratique.

Mais tout cela ne nous dit pas si le problème de PhilLu est résolu

A+

Charly

[chekkal]

Bonjour,

ayant tésté toutes les possibilité, j'ai constaté que décimalseparator ne marche pas sans modification de panneaux de configuration.
En effet si tu veut avoir des valeur numeric avec ','. il faut modifier tout dabord les paramétres régionnaux dans le panneaux de configuration

[Charly910]

Bonjour,

pas de problème chez moi en D7. Si je fais cela :

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
procedure TF_Main.Button1Click(Sender: TObject);
Var
   S         : String ;
   Defaut  : Extended ;
   Resu    : Extended ;
begin
    DecimalSeparator := '.' ;
    S := Edit1.Text ;
    Defaut := Nan ;
    Resu := StrToFloatDef(S, Defaut) ;
    If (IsNan(Resu)) Then
        Label1.Caption := 'Non numérique'
        Else  Label1.Caption := 'Valeur numérique' ;
 
end;

0,564 n'est pas numérique alors que 0.564 est numérique

Si DecimalSeparator = ',' c'est l'inverse

A+

Charly

[DomDA91]

ayant tésté toutes les possibilité, j'ai constaté que décimalseparator ne marche pas sans modification de panneaux de configuration.
En effet si tu veut avoir des valeur numeric avec ','. il faut modifier tout dabord les paramétres régionnaux dans le panneaux de configuration

NON comme je l'ai dit dans ma réponse précédente on peut utiliser les formes étendues des fonctions de conversion StrToXxxx ou XxxxToStr qui disposent du paramètre supplémentaire FormatSettings de type TFormatSettings (unité SysUtils). Il est possible ainsi d'utiliser des paramètres locaux distincts du paneau de configuration.

Exemple :

Code PASCAL :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses Windows;
 
procedure TForm1.Button1Click(Sender: TObject);
Var X: Extended;
  Locals: TFormatSettings;   // Définition Locales pour un usage Très local !
Const LocalUS: LCID = $0809; // ENGLISH_US
      LocalFR: LCID = $040C; // FRENCH
begin
    GetLocaleFormatSettings(LocalFR, Locals); // Initialisation pour le français
    Locals.DecimalSeparator := '.';  // modifie le séparateur décimal
    x := StrToFloatDef(Edit1.Text, Nan, Locals);
    If IsNan(x) Then 
        { erreur } 
    Else ListBox1.AddItem(FloatToStr(x, Locals),Nil);
end;

Noter que les fonctions StrToFloatDef et FloatToStr ont ici un paramètre supplémentaire (Locals) qui fournit les locales pour la conversion.

On aurait aussi pu, ligne 9, initialiser Locals à partir de LocalUS au lieu de LocalFR et la ligne 10 aurait été inutile puisque le séparateur décimal aurait déja été fixé à '.'
Je l'ai montré comme ça pour l'exemple.

Note : J'ai définis les LCID en 'dur' mais il est possible de les construire à partir des constantes LANG_xxx et SUBLANG_xxx de l'unité Windows.

[Andnotor]

@DomDA91: Ton exemple est mauvais et justement ce qu'il ne faut pas faire. Le code du séparateur décimal sur le clavier numérique est VK_DECIMALSEPARATOR et va suivre la localisation. Ton code va systématiquement générer un NAN si le séparateur présent dans Edit1 ne correspond pas à ce que tu souhaites/forces à l'appui sur le bouton

La conversion n'est importante qu'à la lecture/écriture dans un fichier dans le but de sa transmission à un autre utilisateur de langue différente (et lorsque je dis langue, il ne s'agit que de la convention d'écriture des réelles) mais au niveau saisie et traitement par l'application, il n'y a aucune modification à apporter. Si la localisation courante utilise la virgule ; aucun problème, idem pour le point. Et ce n'est pas parce que tu compiles sur un système en français (France) que ton programme ne marchera pas sur un système en anglais.

Une nouvelle fois : laissez l'utilisateur travailler selon ses habitudes

ps: $0809 est l'anglais UK, $0409 pour l'US...

[DomDA91]

@Andnotor
Je suis d'accord avec toi qu'il ne s'agit pas d'une méthode recommandable de façon habituelle mais c'était pour répondre à Chekkal qui disait qu'il n'était pas possible de modifier le comportement des fonction de conversion sans paramétrer tout le système au niveau du panneau de configuration.

Par ailleurs PhilLu n'a pas répondu à ta question concernant l'intention de sa question initiale:

Il faudrait surtout que PhilLu explique pourquoi il veut forcer l'utilisateur (je déteste ça) à utiliser la virgule. Certainement des problèmes de lecture/écriture dans des fichiers...

Il existe des cas, en plus des entrées/sortie de fichiers, ou il peut être nécessaire de forcer un comportement linguistique particulier et pas seulement pour la conversion des réels (dates, heures, etc.).
J'ai, dans ma vie professionnelle, rencontré des outils qui avaient à gérer simultanément des comportement linguistiques différents pour au moins deux langues (par ex. assistant à la traduction devant connaître simultanément les usages linguistiques pour la langue source et la langue cible).

Si s'agit bien sûr de cas très particuliers mais je voulais surtout montrer qu'avec Delphi c'était possible.

Ps: Ok pour le LCID de US et UK j'ai du me tromper d'une ligne