pb de calcul

salut a tous,


J'ai un petit probleme de calcul.

J'ai un Tedit dans lequel l'utilisateur va saisir un nombres.
Un autre Tedit qui possede deja un monbres (c'est le total)

les 2 Tedit sont en relation avec une base de données


J'aimerai que si l'utilisateur saisisse en nombre qu'il soit deduit du total (là pas de probleme pour le faire) mais j'aimerai que si l'utilisateur saissi un autre chiffre que l'ancien total s'en trouve deduit.

ex : total = 30

saisi = 10 donc le total deviens 20
saisi = 2 donc le total deviens 20 - 2

ect....

Code:

---

1 2 3 4 5

billet.FieldByName('CinemaPris').Value := CinemaPrisEdit.text; sommecine.caption :=InttoStr(30-strToInt(CinemaPrisEdit.Text)); billet.FieldByName('CinemaRestant').Value := CinemaRestEdit.text;

---

Merci pour votre aide n et j'espere ne pas avoir mis ce post dans la mauvaise rubrique si tel est le cas je m'excuse aupres des admins

Bonsoir,

tu dis que les champs edit sont reliés à ta base.
Il te faut donc mettre à jour la table ou sont stockées les champs.

Sinon, il te faut passer par une variable intermédiaire pour stocker la valeur issue de la première soustraction.

salut,


J'y ai bien pensé mais , j'avoue que je suis legerement perdu :lol: et je ne sais pas trop comment m'y prendre.
J'ai quelque probleme avec les IntToStr et StrToInt :oops:

@+

Bonjour.

Je ne comprends pas bien ton problème, mais apparement cela
concerne les fonctions StrToInt et IntToStr. Je te donne deux code
en espérent t'aider.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

{-------------------------------------------------------------------} { Indique si une chaine de caractères représente une valeur } { entière valide. } {-------------------------------------------------------------------} Function ChaineEntierValide(Chn : String) : Boolean; Var I : Integer; Begin Result:=False; If (Length(Chn) = 0) Or (Chn = '-') Then Exit; For I:=1 To Length(Chn) Do If Not (Chn[I] In['-','0'..'9']) Then Exit; Result:=True; End;

---

Tu l'utilise ainsi :

Code:

---

1 2	If ChaineEntierValide(EditPrix.Text) Then Prix := StrToInt(EditPrix.Text);

---

Tu peux empecher la saisie de tout caractère qui ne représente pas un
chifrre.

Dans l'événement OnKeyPressed tu écrit ;

Code:

---

1 2	If Not (Key In['0'..'9',#8]) Then Key := #0;

---

Le code #8 est celui de la touche "Delete" en haut du clavier, pour
permetre la correction.

Si cela ne répond pas à ton problème, n'hézites pas, en précisant mieux
sur quoi tu blques.

A+

et bien en fait c'est un calcul cyclique que je voudrais faire.

je vais tenter de l'expliquer :oops:

soit un TEdit que je vais appeler SaisiEdit
un autre TEdit que je vais appeler ResteEdit

Soit ResteEdit = 30 au depart

Si SaisiEdit = 1 ResteEdit prend alors la valeur de 29
puis si SaisiEdit =1 ResteEdit devient alors 28
etc....

C'est une sorte ce compte a rebours mais qui depend le la valeur saisi et du resultat existant precedement.

Je sais que ça doit etre tout bete a faire , mais je bloque sur le rapele de ResteEdit

Je pense que j'ai du mal placé mon processus ou je me trompe dans mon raisonement

merci pour ton aide

En gros tu veux :

Code:

---

1 2	resteedit.text:=inttostr(strtoint(resteedit.text)-strtoint(saisiedit.text);

---

tu mets ce code dans le OnClick d'un Tbutton (sur lequel tu cliqueras dès que tu aura rentré un nouvelle valeur dans saisiedit) et le tour est joué...

enfin, je crois que c'est ce que tu cherches, ou alors j'ai pas compris la question...

Edit : il conviendra évidemment de réaliser un test pour vérifier que Saisiedit et Resteedit rentre dans les 'conditions' : être des valeurs numériques, ne pas être négatifs, etc ...

ok, super ça marche nickel



merci pour ton coup de main :D