SAlut
Entre temps tu as rajouter un poste
Alors 2 petite chose avant de regarder ton code
1) utilise les balise code pour entourer ton text
Si tu ne sais pas faire, il faut selectionner ton text et cliquer sur le bouton # qui se trouve dans le petit editeur de text (tout ceci au moment de la redaction de ton message ou de sa modification)
2)Utilise les indentation dans ton code, met des espace ou des tabulations, prend cette habitude tu verras que la comprenhension de ton code en sera que plus simple.
Comme ceci
Voila deja d'un coup d'oeil opn vois les difrente boucle et si celle ci sont bien toutes fermé avec des End
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 var Form1: TForm1; lettre: char; longeurmot : integer; procedure TForm1.ButtontestcorrectionClick(Sender: TObject); var i : integer; lettrejuste : boolean; begin longeurmot := length(Editmot.Text); if Editresultat.Text = 'partie en cours' then begin if Pos(lettre,Editmotcache.Text) > 1 then for i:= 1 to longeurmot do if Editmot.Text[i] = lettre then begin Editmotcache.Text[i] := lettre; lettrejuste := true; end else lettrejuste := false;
Je regarde le code
A++
Qwaz
Partager