Discussion :

[fermat]

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

[edam]

simple, je te donne un example;

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
 
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+

[fermat]

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

[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??
fait attention j'ai des verus sur mon poste (scan avant l'utilisé)