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;