Discussion :

[Delph]

Salut,

Dans un premier temps j'insère des données dans ma table, dont un champ (double précision) : la virgule est bien prise en compte après vérification dans ma table

Dans un deuxième temps, je souhaite modifier des données dans cette table avec un update et notamment ce champ avec virgule. Mais pb, cette dernière n'est pas prise en compte. Ex : si je saisi 2,5, dans ma table j'ai 25 !

Code :

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

1
2
3
4
5
6
ibquery1.sql.clear;
 
ibquery1.sql.add('update preparation_milieu set volume='+quotedstr(combobox3.text)+',num_lot_milieu='+quotedstr(edit2.text)+',num_sup='+quotedstr(edit3.text)+'where date_prep='+quotedstr(date2)+'and init_op='+quotedstr(combobox1.text)+'and deno_milieu='+quotedstr(combobox2.text));
 
ibquery1.execsql;
MessageDlg('Les informations ont été prise en compte',mtInformation, [mbOK], 0) ;

C'est le combobox3 qui contient le champ qui peut être ou non à virgule.

Help me !

Delph

[DidiLogic]

Remplace la virgule francaise par un point :

Code :

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

1
2
 
vol := StringReplace(combobox3.Text, ',', '.');

[laurent_menard]

J'ai déjà rencontré le problème, et cela venait de la différence entre le point et la virgule. Sous Windows faire attention aux paramètres régionaux dans la configuration des nombres

Cordialement

Laurent

[antp]

Remplace la virgule francaise par un point :

Code :

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

1
2
 
vol := StringReplace(combobox3.Text, ',', '.');

Et comment ils font les gens qui ont "," sur leur pavé numérique ?

[DidiLogic]

Et comment ils font les gens qui ont "," sur leur pavé numérique ?

Code :

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

1
2
3
4
5
 
procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ',' then Key := '.';
end;

[Delph]

Merci pour l'info !
Bonne journée
Delph

[antp]

Et comment ils font les gens qui ont "," sur leur pavé numérique ?

Code :

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

1
2
3
4
5
 
procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ',' then Key := '.';
end;

Très dangereux
je dirais plutôt
if Key = DecimalSeparator then Key = '.';

[Lung]

C'est vrai, c'est plus propre !

[DidiLogic]

Très dangereux
je dirais plutôt
if Key = DecimalSeparator then Key = '.';

En fait j'aurais plutot ecrit pour aller plus loin :

Code :

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

1
2
 
if Key in ['.', '.'] then Key := DecimalSeparator;

C'est vrai, c'est plus propre !

Je suis d'accord pour le "plus propre", mais en quoi est-ce "dangereux" ?
Cet evenement est limite à la zone de saisie !