Problème avec boucle for/loop

**hijoddaqyzo** · 12/12/2015, 09h22

Bonjour! je suis débutant en programmation J'essaie d'utiliser les fonctions 'for' pour mon application voila le code

voila le code

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
25
26
27
28
29
30
31
32
procedure TForm1.btn4Click(Sender: TObject);
var
  meinelist : TStringList;
  s,Count :Integer ;
  cop: string ;
 
begin
meinelist := TStringList.Create ;
Count:= Memo2.Lines.Count  ;
 
  for s:= 4 to Count do
  begin
  cop := Copy(Memo2.Lines[s], 0, Length(EditCom.text) + 1 );
  meinelist.Add(cop);
  Memo2.Lines.Strings[02]:= ((meinelist.CommaText) + ' ') ;
  Memo2.Lines.Strings[14] := ('test= ' + (meinelist.DelimitedText)+ '''''') ;
  if s >= 13 then Break ;
  end;
 
 
  for s:= 21 to Count do
  begin
  cop := Copy(Memo2.Lines[s], 0, Length(EditCom.text) + 2 );
  meinelist.Add(cop);
  Memo2.Lines.Strings[19]:= ((meinelist.CommaText) + ' ') ;
  Memo2.Lines.Strings[30] := ('test= ' + (meinelist.DelimitedText)+ '''''') ;
  if s >= 29 then Break;
  end;
 
 
  meinelist.Free;
end;

je essaye avec 2 bouton défirent ca marche mais qu on je fait dans un seule nnn ca répète les premier chiffre en suite il affiche les autre exemple
1,2,3,4,5,6,7,8,9
....
.....
.....
.....
.....
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18

moi j e veux comme ca
1,2,3,4,5,6,7,8,9
....
.....
.....
.....
.....
10,11,12,13,14,15,16,17,18