Compter des valeurs dans une StringGrid

Version imprimable

20/10/2006, 23h55
fermat

Compter des valeurs dans une StringGrid

Bonsoir,

J'ai une StringGrid qui comporte un certain nombres de valeurs différentes.
Je souhaite afficher dans une ListBox le nombre de fois ou chacune d'elles apparaît dans la StringGrid.

Exemple:
410...présent 12 fois...
85....présent 8 fois
512..présent 18 fois.

Voilà mon problème à résoudre.

Merci de votre collaboration.

Fermat

simple, je te donne un example;

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
33
34
35
36
 
type
 
   TTabl=record
     v,nbr:integer;
   end;
   TArrayTabl=array of TTabl;
var  t:TArrayTabl;
Procedure TForm.charche;
var
  i,j,n,p:integer;
  b:boolean;
begin
      setlength(t,0);j:=-1;
      for i:=1 to sg.rowcount do
        begin
           b:=false;n:=0;
           try
             p:=inttostr(sg.cellul[0,i]); 
           while (n<=j) and (not b) do
             begin
                 b:=(p=t[n].v);
                 if not b then inc(n);
             end;
           if not(b) then
                   begin
                      inc(j);
                      setlength(v,j+1);
                      t[j].v:=p;
                      t[j].nbr:=1;
                   end
           else inc(t[j].nbr);  
           except
           end;          
        end;
end;

bah, c'est fait rapidement, surement il y a quelque erreur, en plus j'utlise la premiére colone de sg (stringgrid)
bon dev, a+

21/10/2006, 18h11
fermat

Compter des valeurs dans une StringGrid

Bonjour,

Merci pour votre réponse.

Je suis débutant en delphi, et je ne comprends pas totalement
le code.

que signifie Tform.charche?

pourquoi le 1er end; [sous:v,nbr:integer;]

Si vous pouviez m'éclairer d'avantage.

fermat
26/10/2006, 12h00
edam

bah, j'ai corrigé quelque erreur et j'ai mis ici un petit example car je suis au boulot et je peut pas faire plus pour l'instant,ok??:oops:
fait attention j'ai des verus sur mon poste :lol: :lol: (scan avant l'utilisé)