Message "(1.5) is not a valid floating point value."

salut :

dans mon projet quand j'entrer une valeur en vergue ex:1,5 le programme il accepter cette valeur parceque (real nb), mais quand j'enter une valeur avec une point ex(1.5) il s'afficher une message :

(1.5) is not a valid floating point value.

la question c'est comment faire pour affiche une autre message:

('Essaier entre une vergue(,) ou lieu point (.) ').
exemple SVP.

mercie.

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 190 then showmessage('Essaier entre une vergue(,) ou lieu point (.) '); end;

---

190 = .

Citation:

---

Envoyé par moukah2

salut :

dans mon projet quand j'entrer une valeur en vergue ex:1,5 le programme il accepter cette valeur parceque (real nb), mais quand j'enter une valeur avec une point ex(1.5) il s'afficher une message :

(1.5) is not a valid floating point value.

la question c'est comment faire pour affiche une autre message:

('Essaier entre une vergue(,) ou lieu point (.) ').
exemple SVP.

mercie.

---

Bon soir
Peut etre que vous ne controlez pas le panneau de configuration /OPTIONSREGIONALES/

Fais une recherche sur TFormatSettings

Bon Soir
Peut etre que vous ne controlez pas les parametres regionales dans le panneau de configuration de windows

tu peux aussi remplacer le '.' et ',' par le séparateur décimal courant.

Pour reprendre le code de magik_mushroom :

Code:

---

1 2 3 4 5 6

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ( Key = ord('.') ) or ( key = ord(',') ) then Key := ord(DecimalSeparator); end;

---

PS: ceci : "," s'appelle une "virgule". Une "vergue" est une "pièce de bois disposée en travers des mâts d'un navire pour supporter les voiles" selon le dictionnaire de TV5

mercie