Discussion :

[gadalla]

slt a tous
je vien de faire un calculatrice mais le calcul est toujour constant et jai rien trouvé deans mon code
je crois que la faute dans le bouton egal
svp aider moi a le trouvé
merci d'avance

[Ben_Le_Cool]

slt a tous
je vien de faire un calculatrice mais le calcul est toujour constant et jai rien trouvé deans mon code
je crois que la faute dans le bouton egal
svp aider moi a le trouvé
merci d'avance

T'es sur que t'as mis le code?? ca ne compile pas.

[archonte]

J'ai regardé très rapidement ton fichier .pas : dans un premier temps tu devrais modifier tes instructions case .. of : il me semble qu'elles n'acceptent pas les chaines comme instruction : c'est à dire que ton code suivant est invalide :

Code :

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

1
2
3
4
5
6
case opp of
    '/' : result := n1 / n2 ;
    '*' : result := n1 * n2 ;
    '-' : result := n1 - n2 ;
    '+' : result := n1 + n2 ;
    end;

Plusieurs solutions existent :
- 1 - soit tu suvegardes le type d'opération en mémoire dans une variable ,
- 2 - soit tu traites un case sur une liste d'éléments ('/', '*', '-', '+')

Bon Courage.

[aityahia]

j'aimerai bien savoir comment ta fais pour compiler ton code .

[Pedro]

Plusieurs solutions existent :
- 1 - soit tu suvegardes le type d'opération en mémoire dans une variable ,
- 2 - soit tu traites un case sur une liste d'éléments ('/', '*', '-', '+')

Soit tu utilises AnsiIndexStr

Code :

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

1
2
3
4
5
6
case AnsiIndexStr(opp, ['/', '*', '-', '+']) of
    0 : result := n1 / n2 ;
    1 : result := n1 * n2 ;
    2 : result := n1 - n2 ;
    3 : result := n1 + n2 ;
    end;

Comment faire un Case Of avec des String ?

[aityahia]

le mieux c'est d'utilser le Tag des button pour définir les opération
et le Caption des chiffre.

Code :

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

Edit1.Text := Edit1.Text + (Sender as TButton).Caption;

pour le point

Code :

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

1
2
3
 
 if pos('.',Edit1.Text = -1 then
 Edit1.Text := Edit1.Text + (Sender as TButton).Caption;

et pour les opérations

Code :

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

Opr := (Sender as TButton).Tag;

[archonte]

Soit tu utilises AnsiIndexStr

Code :

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

1
2
3
4
5
6
case AnsiIndexStr(opp, ['/', '*', '-', '+']) of
    0 : result := n1 / n2 ;
    1 : result := n1 * n2 ;
    2 : result := n1 - n2 ;
    3 : result := n1 + n2 ;
    end;

Comment faire un Case Of avec des String ?

Je me suis peut-être mal exprimé (pressé par le temps !) mais je pensais effectivement à AnsiIndexStr

Je rajouterais qu'il vaut mieux (il faut !) écrire les fonctions/procédures dans la partie implementation et non interface !!