Problème avec boucle for/loop
Bonjour! je suis débutant en programmation J'essaie d'utiliser les fonctions 'for' pour mon application voila le code
voila le code
Code:
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
