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

Problème pour une erreur que je n'arrive pas à résoudre [DELPHI] - Delphi/Pascal - Programmation

Marsh Posté le 13-08-2003 à 14:01:33    

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.
@+

Reply

Marsh Posté le 13-08-2003 à 14:01:33   

Reply

Marsh Posté le 13-08-2003 à 14:25:21    

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

Reply

Marsh Posté le 13-08-2003 à 14:29:27    

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 :D
 
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
Reply

Marsh Posté le 13-08-2003 à 14:55:56    

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:

Reply

Marsh Posté le 13-08-2003 à 14:56:30    

A ton service :hello:
 
On démarre tous un jour ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed