[DELPHI] Problème pour une erreur que je n'arrive pas à résoudre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [DELPHI] Problème pour une erreur que je n'arrive pas à résoudre

glossypaper

Motard des terrasses :o

Bonjour,

Je débute en programmation Delphi et j'utilise un bouquin (campuspress) pour m'aider à apprendre la programmation. J'ai appris à faire 2 boutons et lorsqu'on clique dessus, 2 actions se mettent en marche. Ca, ça pas été trop dur, mais là, j'apprends à faire une calculatrice. J'ai fini le chapitre et ça ne marche pas, j'ai regardé leur code sur le livre et il est exactement comme le mien, mais à la fin de mon code, quand je veux lancer le programme avec F9, il me met cette erreur :

procedure TForm1.Button15Click(Sender: TObject);
begin
Val(Edit1.Text, N2, Erreur);
Case Signe of
1 : N3 := N1 / N2
2 : N3 := N1 * N2
3 : N3 := N1 + N2
4 : N3 := N1 - N2
end;
Str(N3, S);
Edit1.Text:=S;
TF :=1;
end;

end.

A l'endroit où est marqué "2 : N3 := N1 * N2" il me suligne tout ça en me disant qu'il manque un point virgule ou un opérateur, seulement, il n'y a aucune différence entre le code dans le livre et le mien alors je sèche un peu.
Quelqu'un pourrait me donner un ptit coup de pouce s'il vous plaît?
Merci de votre patience.
@+

Publicité

Taz

bisounours-codeur

je le sens pas terrible le ';' à la fin de l'entete (juste avant le begin, fin de première ligne)

Tetedeiench

Head Of God

Taz a écrit :

je le sens pas terrible le ';' à la fin de l'entete (juste avant le begin, fin de première ligne)

C'est bon ca

Je mate la syntaxe du case en delphi ( jamais utilisé )

En fait, il faut un ; a la fin de chaque condition du case.

C'est à dire comme ca :

Citation :

procedure TForm1.Button15Click(Sender: TObject);
begin
Val(Edit1.Text, N2, Erreur);
Case Signe of
1 : N3 := N1 / N2;
2 : N3 := N1 * N2;
3 : N3 := N1 + N2;
4 : N3 := N1 - N2;
end;
Str(N3, S);
Edit1.Text:=S;
TF :=1;
end;

Les boouquins ont souvent des erreurs, hésite pas a expérimenter par toi même.

Message édité par Tetedeiench le 13-08-2003 à 14:30:55

glossypaper

Motard des terrasses :o

Sur ce coup je suis pas fier. Comme la ligne était surlignée et qu'à chaque fois le trait qui marque le début de l'écriture était au niveau du ":" j'ai pas vu plus loin. Mais dans le livre il y a bien les ; à la fin des chaque ligne :sweat: .
L'énervement rétréci le champs de vision j'ai l'impression :whistle: .

Enfin merci d'avoir résolu mon problème, c'est sympa! :hello:

Tetedeiench

Head Of God

A ton service :hello:

On démarre tous un jour

FORUM HardWare.fr

Programmation

Delphi/Pascal

[DELPHI] Problème pour une erreur que je n'arrive pas à résoudre

Sujets relatifs
Problème avec Header...	Problème fseek()
Problème d'adaptation de script. (Résolu mais voir fin)	[Perl CGI] Problème d'affichage
problème de création de table	probleme de non respect des couleurs sous ie6.0
Petit probleme avec le "DOS" de la console de recup XP	problème bizarre avec les headers
[delphi] longueur du code ... comment vous faites?	Problème de conversion de format de date....
Plus de sujets relatifs à : [DELPHI] Problème pour une erreur que je n'arrive pas à résoudre

Page générée en 0.038 secondes