Discussion :

[laala.hamid]

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.

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;

merci de m'orienter.

[seabs]

Bonjour,

Une piste, mais peut être pas la bonne.

Dans le paramètre régional de ton ordinateur, le séparateur décimal est peut être la virgule et non le point.

Change la présentation et tout devrait entrer dans l'ordre, ou bien utilise la virgule comment séparateur décimal dans ton programme.

Si l'erreur se poursuit, examiner si aucun caractère autre que des chiffres ou le séparateur décimal se trouve dans "dbedit2.Text" utilisé pour la conversion.

Bon courage

[DOLPat®]

'' n'est pas une valeur en virgule flottante correcte.

Bonjour

Cette erreur est provoquée par une tentative de conversion d'une chaine vide...
Vérifie que dbedit2.Text contient effectivement du texte.

[Gilbert Geyer]

Bonjour,

DOLPat® : Cette erreur est provoquée par une tentative de conversion d'une chaine vide...

Comme j'ai été agacé par ce même problème répétitif je me suis concocté la fonction suivante :

Code :

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

1
2
3
4
5
6
function  StrToFloatEdit(Sender: TObject; valSiVide : Extended) : Extended;
var       ed : tEDIT;
begin     ed := Sender as tEdit;
          if ed.text='' then Result:=ValSiVide
                        else Result:=StrToFloat(ed.text);
end;

dans laquelle le paramètre valSiVide est la valeur de substitution à renvoyer en cas de chaîne vide.

Utilisation :

Code :

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

MonReel:=StrToFloatEdit(edit1, 0.001);

A+.

[seabs]

Bonjour,

@Gilbert Geyer

Citation:
DOLPat® : Cette erreur est provoquée par une tentative de conversion d'une chaine vide...
Comme j'ai été agacé par ce même problème répétitif je me suis concocté la fonction suivante :

Il existe une fonction Delphi qui fait cette conversion.

Code :

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

tranche:= StrToFloatDef(dbedit2.Text, 0.00001);

Elle se trouve dans l'unité SysUtils
A+

[Gilbert Geyer]

Re-bonjour,

seabs : Il existe une fonction Delphi qui fait cette conversion.
tranche:= StrToFloatDef(dbedit2.Text, 0.00001);

Manque de chance : je ne l'ai pas trouvée sous Delphi 5.
Par contre ça m'a permis de prendre conscience du fait que j'ai au moins les deux qui suivent :

function StrToIntDef(const S: string; Default: Integer): Integer;
function StrToInt64Def(const S: string; Default: Int64): Int64;

A+.

[laala.hamid]

merci beaucoup pour vous conseils mais malheureusement le problème persiste toujours.

[MarcS]

Bonjour,

Pourquoi ne pas tester si dbedit2.Text est bien numérique ? du style

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
16
17
18
19
20
21
22
23
 
 
function IsNum(S: ShortString): Boolean;
var
  I: Byte;
begin
  Result := False;
  if S='' then
    Exit;
  if s[1]='+' then Delete(s, 1, 1);
  for I := 1 to Length(s) do
    if not(s[i]in ['-', '.', '0'..'9']) then
      Exit;
  Result := True;
end;
 
 
Puis
 
 
If IsNum(dbedit2.Text) Then
tranche:=strtofloat(dbedit2.Text) Else
...

Et je mettrais un point d'arrêt pour vérifier la valeur.

Bonne journée
MS

[Gilbert Geyer]

Bonjour,

MarcS : Pourquoi ne pas tester si dbedit2.Text est bien numérique ? du style ...function IsNum(S: ShortString): Boolean;

Comme laala.hamid a dit dans son 1ier message

"je suis entrain de développer une petite application avec les bases de données,mais malheureusemenet quand j’exécute et je saisis mes données"

... il vaut mieux empêcher de saisir de mauvaises données dans les Edit :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure EditReelPositif(Sender: TObject; var Key: Char);
begin     if (Key = '.') then Key :=',';
          if not (Key in ['0'..'9','+',',',Chr(VK_BACK), Chr(VK_DELETE)])
          then Key := #0;
end; 
 
// Utilisation :
 
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin     EditReelPositif(Sender,Key); end;

... à noter que si on a 36 Edit's dans lesquels on doit saisir des réels positifs on peut faire pointer leur onKeyPress sur cette seule et même edit1KeyPress. (en évitant ainsi d'avoir à truffer le code par des if not IsNum then ...

Suffit de se créer des :
- procedure EditReelSigné();
- procedure EditEntierPositif();
- procedure EditEntierSigné();
à l'image de EditReelPositif() et on se règle le pb pour ces divers cas.

A+.