salut tout le monde je suis debutant en delphi et j'ai un problem que j'ai pas reussi a le resoudre
j'ai une table de six attributs qui contient des numeros de 1...jusqu'a 49, et je voudrais compter le nombre de repetition de chaque numero dans cette table et affecter chque numero avec son nombre de repetition dans une autre table, j'ai ecris ce script

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
var i,m,j,k:integer;
 
 
begin
 j:=0;
 table1.First;
 table2.First;
  m:=table1.recordcount;
 
 
 
 
 for i:=1 to 49 do
 
  begin
 
  for k:=1 to m do
 
  begin
 
   if (intToStr(i)= table1.FieldByName('Num1').AsString)then
      begin
 
        table1.next;
      j:=j+1;
 
      end ;
 
   if (intToStr(i)= table1.FieldByName('Num2').AsString)then
      begin
 
 
       table1.next;
 
      j:=j+1;
 
      end;
 
 
   if (intToStr(i)= table1.FieldByName('Num3').AsString)then
      begin
 
 
         table1.next;
       j:=j+1;
      end;
 
   if (intToStr(i)= table1.FieldByName('Num4').AsString)then
      begin
 
 
          table1.next;
          j:=j+1;
      end;
 
   if (intToStr(i)= table1.FieldByName('Num5').AsString)then
      begin
 
         table1.next;
      j:=j+1;
      end;
 
 
   if (intToStr(i)= table1.FieldByName('Num6').AsString)then
      begin
 
 
     table1.next;
       j:=j+1;
     end;
 
 
 
 
  end;
 
    table2.insert;
      table2.fieldByName('Num').asString:=IntToStr(i);
      table2.fieldByName('Nomb').asString:=IntToStr(j);
      table2.post;
 
      table2.next;
 
        j:=0;
 
 
 
 
    end;
 
 end;
mais sa na pas marcher les resultats son erronees, ce que j'ai voulus faire c'est de parcourir la table et compter le nombre de chaque numero, est que quelqu'un pourait m'aider