Discussion :

[cre3000]

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;

[Charly910]

Bonjour et bonne année à toi aussi

Peux tu expliquer ce que tu veux faire, car je n'ai pas compris

Quand un numéro est il gagnant ?

Tu as 50 numéros ou 70 ?

@+

Charly

[cre3000]

Il s'agit d'afficher dans un tableau les 50 numero (BANCO) non gagnant d'une série de 70 .

J'ai imaginer le code suivant qui fonctionne sauf qu'il laisse les case vides des 20 numeros gagnant.

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
procedure TFormTableur649.comparatif_n_s;
var a,i,s,d:integer;
 begin
 
  a:=1;
 
  with StringGrid5 do
         begin
     for i:=1 to 71 do
     Cells[i,0]:=inttostr(i);
     end;
 
 
 
     for d:=1 to max do // 
     for s:=1 to 70 do
     stringgrid5.Cells[s,d]:= inttostr(s);
 
     for d:=1 to max do
     for s:=1 to 70 do
     for i:=1 to 20 do
     begin
     if stringgrid5.Cells[s,d]= stringgrid1.Cells[i,d] then
     begin
     stringgrid5.Cells[s,d]:='';
     end;
     end;
     end;

[Charly910]

Bonjour,

S j'ai bien compris, tu entres les numéros gagnants dans StrigGrid1 qui est en mode édition, dans chaque ligne et dans la bonne colonne (exemple "3" en colonne 3)

puis quand tu exécutes ta procédure, chaque ligne de StringGrid5 se remplit avec les entiers de 1 à 70

et les numéros qui correspondent en position à ceux de StringGrid1 sont mis à blanc.

OK, mais que veux tu faire ? que veux tu mettre à la place des cases blanches ?

Cordialement

charly

[Andnotor]

C'est pas très clair au niveau des indices. N'oublie pas que les premières lignes/colonnes ont l'indice 0. Sinon:

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
var
  i, Col :integer;
  s :string;
 
begin
  StringGrid5.ColCount := 50;
  Col := 0;
 
  for i := 1 to 70 do
  begin
    s := IntToStr(i);
 
    if StringGrid1.Rows[1].IndexOf(s) = -1 then
    begin
      StringGrid5.Cells[Col, 1] := s;
      inc(Col);
    end;
  end;
end;