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
Partager