Na ja Du vergleichst Äpfel mit Birnen......
Delphi-Quellcode:
// Hier vergleichst Du Byte......
if Pix1[x] <> Pix2[x] then begin
Exit; // ungleich, verlasse deshalb routine. Result ist in diesem Falle = False ...
end else begin // bedeutet Pix1[x] = Pix2[x]
c1 := pic1.Canvas.Pixels[x,y];
c2 := pic2.Canvas.Pixels[x,y];
// und hier Integer
if c1 <> c2 then begin
ShowMessage('ACHTUNG: Farbe unterschiedlich, obwohl Scanline angeblich identisch???'
+ #13#10#13#10 + IntToStr(c1) + ' // ' + IntToStr(c2));
end;
end;
Lies Dir mal die Hilfe zu Scanline durch.