Discussion :

[mimiferry]

Bonjour tout le monde,


J'essaye de faire un calcul en utilisant la boucle if mais quelque chose m’échappe dans la conversion de valeurs
La condition que j'aimerai appliquer est celle ci :


Si [valeur text edit1 = 'Oui'] et [(valeur num Edit2 >= (valeur entier Edit3*3)] alors (valeur num Edit4 = (Edit3*3)
La valeur attendue pour Edit4 est numérique avec 2 décimale


J'ai réalisé ce code mais ça ne marche pas !

Quelqu'un peut m'aider ?

Code :

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

1
2
 if (EditBase_calcul_cot.Text =('Oui')) and (StrToInt(Edit2.Text) >= StrToInt(Editpss.Text)*3) then
             DBEdit9.Text:=FloatToStr(StrToFloatDef(Editpss.Text,0)*3)

[SergioMaster]

Bonjour,

il faut respecter la casse de 'Oui' ou pas forcément ? dans le premier cas Sametext(Edit1.text,'oui') dans le second Edit1.Text='Oui'

Code :

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

1
2
3
4
5
6
if (Edit1.Text='Oui') AND (StrToIntDef(Edit2.Text,0) >= StrToIntDef(Editpss.Text,0)*3) 
  then <s>DBEdit9.Text:=FloatToStr(StrToFloatDef(Editpss.Text,0)*3)</s> // non car c'est un dbedit
    begin
      DBEdit9.DataSource.DataSet.Edit;
      DBEdit9.DataSource.Dataset.FieldByname(DbEdit9.DataField).value:=StrToFloatDef(Editpss.Text,0)*3;
    end;

bien sûr ce serait plus facile en utilisant directement le nom de la table

[mimiferry]

[QUOTE=SergioMaster;10953267]Bonjour,

il faut respecter la casse de 'Oui' ou pas forcément ? dans le premier cas Sametext(Edit1.text,'oui') dans le second Edit1.Text='Oui'

Oui il faut absolument que la casse 'Oui' soit respecter


en faisant ce code :

Code :

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

1
2
3
4
5
if (Edit1.Text='Oui') AND (StrToIntDef(Edit2.Text,0) >= StrToIntDef(Editpss.Text,0)*3) 
    begin
      DBEdit9.DataSource.DataSet.Edit;
      DBEdit9.DataSource.Dataset.FieldByname(DbEdit9.DataField).value:=StrToFloatDef(Editpss.Text,0)*3;
    end;

J'ai ce message d'erreur :

[SergioMaster]

Changez le StrToIntDef en StrToFloatDef (devinez lequel )

[pprem]

Juste pour la sémantique : IF n'est pas une boucle, c'est une instruction de test de conditions.

Les boucles en Pascal sont FOR, REPEAT...UNTIL, WHILE.

Ceci dit, ça ne change rien au problème.

[mimiferry]

Changez le StrToIntDef en StrToFloatDef (devinez lequel )

Yessss j'ai deviné lol

grand merci !

[mimiferry]

Juste pour la sémantique : IF n'est pas une boucle, c'est une instruction de test de conditions.

Les boucles en Pascal sont FOR, REPEAT...UNTIL, WHILE.

Merci pour l'info je note