J'ai une série de 20 chiffres dans un tableau et j'aimerais sortir les numeros
non gagnant soit 50 numeros (total 70).
J'ai réussie partiellement, mes numéros sorte en répétition en commencant par
une case vide au début des numéros non gagnant.
Pourriez vous m'aider. merci et bonne année a tous
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 procedure TFormTableur649.comparatif_n_s; var a,i,s,d:integer; begin a:=1; with StringGrid5 do begin for i:=1 to 51 do Cells[i,0]:=inttostr(i); end; for s:=1 to 70 do for i:=1 to 20 do begin if inttostr(s) = stringgrid1.Cells[i,1] then begin // quoi mettre ????? end else begin stringgrid5.Cells[a,1]:=inttostr(s); end; a:=a+1; end; end;
Partager