Bonjour

Suivant mon compilo, je me trouve devant un blème d'affectation à ma variable de boucle FOR 'E'.
Je veux dire, seulement lorsque j'intègre les premières lignes de code faisant défiler toutes les lettres présentes de l'Edit.
(J'ai donc disposé ici autrement le code afin de mieux présenter mon but)

Bref, je ne trouve pas comment faire afin que la variable (char) 'C' tourne aussi dans ma boucle While.

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
23
24
procedure TForm1.btnEssaiClick(Sender: TObject);
var
  T, E, L: Integer;
  C: Char;
begin
  T := 120; 
  E := 80;
 
  L := Length(Edit1.Text);
  For E := 1 to Length(Edit1.Text) do
  begin
    C := Edit1.Text[E];
    // ShowMessage(C);
  end;
 
 
  While (E < T) do
  begin
    beep;
    Edit1.Text := Edit1.Text + C;
    E := E + 1;
  end;
 
end;
Donc, comment faire afin que la variable "C" à l'intérieur de ma boucle White "tourne" et ne redonne pas toujours le même char.

Merci d'avance de vos conseils, car pour l'instant ça...