类试的:
type
rgbp=record
r:integer;
g:integer;
b:integer;
var
rgbpoint:array[0..1000,0..1000] of rgbp;
red,green,blue;integer;
procedure ……
begin
……
color:=image1.canvas.pixels[i,j];
rgbpoint[i,j].r:=getrvalue(color);
rgbpoint[i,j].g:=getgvalue(color);
rgbpoint[i,j].b:=getbvalue(color);
……
red:=rgbpint[i,j].r+red;
green:=rgbpint[i,j].g+green;
blue:=rgbpoint[i,j].b+blue;
……
bitmap.canvas.pixels[i,j]:=rgb(red div ?,green div ?,blue div ?); // ? 代表一共有几个点,就是点的个数。
image2.picture.bitmap.assign(bitmap);
……