Pixelvalues in einem Kreis lesen

[brandtson]

Hi Seniman,

danke für deinen guten Ratschlag! Jetzt klappts, die Source ist auch um einiges kürzer geworden.

Delphi-Quellcode:

procedure tkreis.kreisroi2;

var  mx,my: integer;

begin
  pixelcount:= 0;
  setlength(xywerte,breite,hoehe);
    for mx:=0 to breite-1 do
      for my:=0 to hoehe-1 do
        begin
          if (sqr(mx-x)+sqr(my-y))<sqr(rd) then
            begin
              xywerte[mx,my]:=true;
              zahler:=zahler+pixelwerte[mx,my];
              pixelcount:= pixelcount+1;
            end;
        end;
end;

gruß brandtson