Nun möchte ich den "wert" mit dem schwellwert vergleichen und ihn im stringgrid ausgeben, aber das klappt nicht. Dann kommt folgende Fehlermeldung:
Error: Incompatible type for arg no.3: Got "LongInt", expected "AnsiString"
Delphi-Quellcode:
For i:=1 to image1.width do // Erstes Bild pixelweise auslesen
Begin
For j:=1 to image1.height do
Begin
farbe1:= image1.canvas.pixels[i,j];
end;
end;
For i:=1 to image2.width do // Zweites Bild pixelweise auslesen
Begin
For j:=1 to image2.height do
Begin
farbe2:= image2.canvas.pixels[i,j];
end;
end;
wert:= (farbe1 and clred)-(farbe2 and clred); // Differenzwert bilden
If wert > schwellwert then
Begin
stringgrid1.cells[1,1]:=inttostr(wert); // Edit
end;
Und wie bekomm ich raus an welchen Stellen X und Y er die Unterschiede im Bild gefunden hat?