Discussion :

[accoustic]

salut tout le monde,

voici une partie du code source d'une de mes application. Vous l'aurez deviner je compare les différences entre deux image dans un secteur bien déféni. Mais j'ai un probleme avec ma boucle For, car la procedure n'annalyse que la premiere ligne en haut.

Si quelqu'un pourrait donc m'aider...

Merci!

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
procedure TForm1.Button2Click(Sender: TObject);
var
 coordonneY : integer;
 coordonneX : integer;
 indxX : integer;
 indxY : integer;
begin
 ListBox1.Clear;
 CoordonneY := 1;
 CoordonneX := 262;
  For indxY := 1 to 112 do
   begin
     For indxX := 1 to 58 do
      begin
        if image2.Canvas.Pixels[coordonneX, coordonneY] <>
        image1.Canvas.pixels[coordonneX, coordonneY] then
         begin
         Listbox1.Items.Add(inttostr(coordonneX));
         end;
     CoordonneX := CoordonneX + 1;
  end;
 CoordonneY := CoordonneY + 1;
end;
ListBox2.Items.add(intTostr(Listbox1.Items.count));
end;

[Jipété]

Salut !
Pas bien réveillé, ce matin, donc je fais pas te refaire ta boucle, mais on voit tt de suite que ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CoordonneY := CoordonneY + 1;

est en dehors de toute boucle !
Il est sûrement là, ton 'blème !
Mes 2 cts,
--
jp

[Bejaia-In]

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
procedure TForm1.Button2Click(Sender: TObject);
var
 coordonneY, coordonneX : integer;
 indxX, indxY : integer;
begin
 ListBox1.Clear;
 CoordonneY := 1;
 //CoordonneX := 262;

 For indxY := 1 to 112 do
 begin
  CoordonneX := 262;
  For indxX := 1 to 58 do
  begin
   if image2.Canvas.Pixels[coordonneX, coordonneY] <> image1.Canvas.pixels[coordonneX, coordonneY] then
     Listbox1.Items.Add(inttostr(coordonneX));
   CoordonneX := CoordonneX + 1;
  end;
  CoordonneY := CoordonneY + 1;
 end;
 ListBox2.Items.add(intTostr(Listbox1.Items.count));
end;