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