Discussion :

[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.

[the_magik_mushroom]

Code :

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

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 = .

[gentilman_delphi]

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/

[Linkin]

Fais une recherche sur TFormatSettings

[gentilman_delphi]

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

[guillemouze]

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

Pour reprendre le code de magik_mushroom :

Code :

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

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

[moukah2]

mercie