Bildanalyse/-vergleich

[Bummi]

das gehört da nicht rein:

Delphi-Quellcode:

 x:=stringgrid1.cells[1,nr];
....

wenn es Sinn machen würde müsstest Du den String auch noch in einen Integer umwandeln (StrToInt)

Delphi-Quellcode:

      3:
         with form1.image3.canvas do
            begin
            // folgende Zeile hat hier nichts verloren .... 
            quadratmalen(3,round(x-(spinedit2.value/2)),round(y-(spinedit2.value/2)),spinedit1.value,clred); // Quadratmalen mittels zeichnen der 4 Linien - klappt nicht!
            //pen.color:=clred;
            pen.color:=farbe;

und statt spinedit2.value sollst Du nach Vorgabe _kantenlaenge verwenden


Die Prozedur gehört in die Ecke wo Du AddFound aufrufst, mit
quadratmalen(3,j,i,SpinEdit2.Value,clRed);
Ihr sollt ja den Sinn und die Funktion von Prozeduren verstehen lernen ....