bonjour;
je suis entrain de développer une pte application avec les bases de données,mais malheureusement quand j’exécute et je saisi mes données et aprés la validation ça me donne le message suivant:
'' n'est pas une valeur en virgule flottante correcte.
merci de m'orienter.
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 TForm1.BitBtn1Click(Sender: TObject); var sable,enlev,plus_val,refec_bit,refec_cim,refec_car,tansp,neutre, depens_man,depens_ouv,largeur,tranche,profondeur:real; begin table1.Open; table1.Append; dbedit1.SetFocus; decimalseparator:='.'; if dbcombobox1.text='B' then largeur:=0.3;profondeur:=0.8; if dbcombobox1.text='C' then largeur:=0.4;profondeur:=0.9; if dbcombobox1.text='E' then largeur:=0.6;profondeur:=0.9; tranche:=strtofloat(dbedit2.Text); sable:=tranche*largeur*profondeur; end;
Partager