Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1368 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°485949
glossypape​r
Motard des terrasses :o
Posté le 13-08-2003 à 14:01:33  profilanswer
 

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

mood
Publicité
Posté le 13-08-2003 à 14:01:33  profilanswer
 

n°485969
Taz
bisounours-codeur
Posté le 13-08-2003 à 14:25:21  profilanswer
 

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

n°485970
Tetedeienc​h
Head Of God
Posté le 13-08-2003 à 14:29:27  profilanswer
 

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
n°485996
glossypape​r
Motard des terrasses :o
Posté le 13-08-2003 à 14:55:56  profilanswer
 

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:

n°485998
Tetedeienc​h
Head Of God
Posté le 13-08-2003 à 14:56:30  profilanswer
 

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


Aller à :
Ajouter une réponse
  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 tableprobleme de non respect des couleurs sous ie6.0
Petit probleme avec le "DOS" de la console de recup XPproblè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


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR