Discussion :

[cincap]

Bonjour à toutes et à tous,

J'aimerai réaliser un jeux avec des TEdit, il s'agit d'écrire 5 nombres de 5 chiffres dans 5 TEdit et de les additionner.

Tedit6 sera le total (c'est ok).

A ce stade pas de problème.

Tedit 7 sera celui par rapport au 1er nombre.

Mais avec le 1er TEdit, dès que le 1er nombre de 5 chiffres est écrit, il faut recopier ce nombre dans le TEdit7 en rajoutant un 2 (toujours) devant le 1er chiffre de ce nombre et en enlevant 2 (toujours) du dernier chiffre de ce nombre.

La difficulté c'est que si le dernier chiffre est un 0, il faudra décompter 2 sur les deux derniers chiffres, si les deux derniers chiffres sont des 0, il faudra décompter 2 sur les trois derniers chiffres, etc....

Exemple :

le 1er nombre est 45789, Tedit7 sera 245787

le 1er nombre est 45780, Tedit7 sera 245778

le 1er nombre est 45700, Tedit7 sera 245698

etc....

Merci de votre attention,

@+,

Cincap

[dehorter olivier]

quelque chose comme cela :

Code :

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

1
2
TEdit7.Text := '2' + Trim(TEdit7.Text);
TEdit7.Text := IntToStr(StrToInt(TEdit7.Text) - 2);

[cincap]

@ dehorter olivier, merci de ta suggestion rapide.

TEdit7.Text := '2' + Trim(TEdit7.Text);
TEdit7.Text := IntToStr(StrToInt(TEdit7.Text) - 2);

Tu as voulu dire ceci car c'est le résultat du Tedit1 que je dois récupérer dans le Tedit7 :

Edit7.Text := '2' + Trim(Edit1.Text);
Edit7.Text := IntToStr(StrToInt(Edit1.Text) - 2);

Les suggestions séparées et corrigées fonctionnent, le problème c'est que dès le 1er nombre rentré, je clique sur un bouton pour faire l'opération ajouter 2 devant le 1er chiffre (comme en 1) et soustraire 2 du ou des derniers chiffres (comme en 2).

Edit : En testant ceci, j'ai bien le résultat escompté :

Code :

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

1
2
 
Edit7.Text := '2' + IntToStr(StrToInt(Edit1.Text) - 2);

Merci donc de ton intervention et ta solution

@+,

Cincap

[cincap]

@ dehorter olivier,

en retournant le code dans tous les sens, j'obtiens une erreur avec le nombre de 10000, j'obtiens 29998 (faux), avec 10005, j'obtiens 210003 (vrai) et avec 11000 c'est ok, j'obtiens 210998 soit un nombre de 6 chiffres ce qui est normal pour une addition de 5 nombres de 5 chiffres.

Ceci pour parer les éventualités car le 1er nombre est noté par celui a qui on fait la blague.

@+,

Cincap

[dehorter olivier]

Quel devrait être le nombre correct ?

En tout cas, il faut jouer sur les priorités à l'aide des parenthèses .

[cincap]

J'ai testé ceci et c'est correct, mais il y a peut être quelque chose de plus propre on ne sait jamais avec les cracks de ce forum.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.BreponseClick(Sender: TObject);
begin
 
//Edit7.Text := '2' + Trim(Edit1.Text);
 
if edit1.Text = '10000' then Edit7.Text := '20'  + IntToStr(StrToInt(Edit1.Text) - 2) else
Edit7.Text := '2'  + IntToStr(StrToInt(Edit1.Text) - 2);
 
end;

@+,

Cincap

@+,

Cincap

[dehorter olivier]

et comme cela

Code :

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

Edit7.Text := IntToStr(StrToInt('2' + trim(Edit1.Text)) - 2);

[Andnotor]

Simplement

Code :

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

Edit7.Text := FormatFloat('200000', StrToInt(Edit1.Text) -2);

Le 2 n'affecte pas le formatage du nombre

[mick605]

Salut

Personne n'a fait la remarque, mais je te conseille fortement de renommer tes composants ... Parce que Edit1,2,3,4,5,6,7 ca commence a faire ... En plus, en lisant le code, on comprendrait directement ce qu'il fait ...

Bonne chance

[cincap]

@ mick605, tu as raison, c'est ce que je fais toujours lorsque l'application est en phase terminale, ce qui n'est pas encore le cas, par exemple (Edit7 deviendra Edreponse).

@ Andnotor, cela provoque une erreur lors de la compilation "n'est pas une valeur entière correcte";

@ dehorter olivier, cela fonctionne correctement comme demandé.

Edit : Désolé pour Andnotor, il a aussi raison car après coup (connaissant sa justesse !), j'ai relu ce que j'avais testé avec son code et cela fonctionne aussi correctement, désolé;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFnombre.BreponseClick(Sender: TObject);
begin
 
{if edit1.Text = '10000' then Edreponse.Text := '20'  + IntToStr(StrToInt(Edit1.Text) - 2) else
Edreponse.Text := '2'  + IntToStr(StrToInt(Edit1.Text) - 2);}
 
//Fonctionne aussi
//Edreponse.Text := IntToStr(StrToInt('2' + trim(Edit1.Text)) - 2);
 
Edreponse.Text := FormatFloat('200000', StrToInt(Ed1.Text) -2);
 
end;

Encore merci à tous,

@+

Cincap

[mick605]

Ok, c'est juste plus simple au fur et a mesure...

Sinon, pour ton problème, c'est pas plutôt une erreur a l'exécution ? Regarde du coté des TryStrToInt et StrToIntDef (F1 pour l'aide).