External: SIGEGV bei Rect()

[F1r3man]

ist mir eben auch aufgefallen, habs behoben, aber der Fehler bleibt gleich. ist auch aufgetreten, wenn ich das über eine Schleife mache, also ohne 'Rect'.

neuer Quelltext

Delphi-Quellcode:

begin
  filterRad:= 3;
  durchschnitt:= (filterRad*2)-1;
  DstRect:= Rect(0, 0, img.Width, img.Height);
  img.Create;
  img.LoadFromFile(Pfad);
  kanten.Create;
  kanten.setSize(img.Width, img.Height);
  blaueflaeche.Create;
  blaueflaeche.setSize(img.Width, img.Height);
  kanten:= findeKanten(img, filterRad, 200, kanten);
  blaueflaeche:= findeBlau(img, filterRad, blaueflaeche);
  for x:=filterRad to img.Width-filterRad-1 do
  begin
    for y:=filterRad to img.Height-filterRad-1 do
    begin
      if(isObenLinks(kanten, x, y, 3) AND hatBlaueFlaeche(blaueflaeche, x, y, 3)) then
      begin
        SrcRect:= Rect(x, y, 300, 200);
        Result.Canvas.CopyMode:= cmSrcCopy;
        Result.Canvas.CopyRect(dstRect, img.Canvas, SrcRect);
        break;
      end;
    end;
  end;
end;