Zitat von
SCHNICO:
P := BitMap.ScanLine[i];
P2 := BitMap2.ScanLine[i];
if p = p2 then
r := r + 1 //anzahl gleicher Lines
else
w := w + 1; //anzahl unterschiedlicher lines
end;
Das kann so nicht funktionieren.
P & P2 sind lediglich 2 Zeiger, die natürlich bei 2 Bitmaps immer
verschieden sind.
Deshalb:
Delphi-Quellcode:
for j:= 0 to BitMap.Width - 1 do
if P[j] = P2[j] then
Inc(r) //anzahl gleicher Pixel
else
Inc(w); //anzahl unterschiedlicher Pixel