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!