Delphi-Quellcode:
procedure THauptformular.FeldMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var MX, MY,XX,YY : integer;
begin
if EinfugenAn = false then // Fehler 1
// [...]
if EinfugenAn = true then // Fehler 2
// [...]
end;
Man vergleicht nicht auf = TRUE oder = FALSE. Entweder
if Variable then
oder
if not Variable then
. Außerdem gibt es
if [...] then [...] else
.
Weiterhin habe ich das Gefühl, dass du mal in den Projektoptionen die Bereichsprüfung aktivieren solltest:
for XX := 0 to FigurBreite2+1 do
das "+" hier ist mir sehr suspekt, auch wenn ich den Hintergrund nicht kenne.
Bernhard