Überprüfung eines Image

[Jowo]

Delphi-Quellcode:

procedure TBebauung.BtSchwarzes_HausClick(Sender: TObject); 
----->var i,j: integer;<-----
begin 

try 
  strtoint(Edxstelle.text); 
  strtoint(Edystelle.text); 
  strtoint(Edhoehe.text); 
  strtoint(Edbreite.text) 
except 
  showmessage('Bitte geben sie jeweils eine Zahl für Xstelle, Ystelle, Breite und Hoehe an!'); 
  exit 
end; 

xstelle:= StrToInt(Edxstelle.text); 
ystelle:= StrToInt(Edystelle.text); 
breite:= StrToInt(Edbreite.text); 
hoehe:= StrToInt(Edhoehe.text); 

For i := xstelle to xstelle+breite do 
begin 
  For j := ystelle to ystelle - hoehe - (breite div 2) do 
  begin 
    If ImBebauung.Canvas.Pixels[i,j]<> clwhite then showmessage ('Bauplatz ist nicht frei! Das Haus konnte nicht gebaut werden!'); 
  end; 
end;

Die Variablen dürfen nicht oben unter private deklariert werden. Dies muss in der Prozedur selbst geschehen!