简短点,这两个过程有什么问题吗?(50分)

昨天提问钱用完了,这是我同学的帐号

昨天那位说要发邮件的别忘了啊,多谢
procedure tform2.getrgbp(sender:tobject);
var
color:tcolor;
begin
x:=image1.Picture.Width;
xx:=x-1;
y:=image1.Picture.Height;
yy:=y-1;
for i:=0 to xx do
begin
for j:=0 to yy do
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);
end;
end;
end;

procedure Tform2.N6Click(Sender: TObject);
var
red:integer;
green:integer;
blue:integer;
begin
image6.Picture.Bitmap.Assign(image1.Picture.Bitmap);
getrgbp(sender);
xx:=x-2;
yy:=y-2;
for i:=1 to xx do
begin
for j:=1 to yy do
begin
red:=rgbpoint[i-1,j-1].r+rgbpoint[i-1,j].r+rgbpoint[i-1,j+1].r+
rgbpoint[i,j-1].r+rgbpoint[i,j].r+rgbpoint[i,j+1].r+
rgbpoint[i+1,j-1].r+rgbpoint[i+1,j].r+rgbpoint[i+1,j+1].r;
green:=rgbpoint[i-1,j-1].g+rgbpoint[i-1,j].g+rgbpoint[i-1,j+1].g+
rgbpoint[i,j-1].g+rgbpoint[i,j].g+rgbpoint[i,j+1].g+
rgbpoint[i+1,j-1].g+rgbpoint[i+1,j].g+rgbpoint[i+1,j+1].g;
blue:=rgbpoint[i-1,j-1].b+rgbpoint[i-1,j].b+rgbpoint[i-1,j+1].b+
rgbpoint[i,j-1].b+rgbpoint[i,j].b+rgbpoint[i,j+1].b+
rgbpoint[i+1,j-1].b+rgbpoint[i+1,j].b+rgbpoint[i+1,j+1].b;
mybitmap.Canvas.Pixels[i,j]:=rgb(red div 9,green div 9,blue div 9);
end;
end;
image6.Picture.Bitmap.Assign(mybitmap);
end;

那个数组前面定义了,是1000*1000的

用这种方法钝化太...
想柔和一点有很多方法的.

那告诉我啊,关键这段程序其实有问题

语法应该没错

你的问题是不是输出的图象是空的?

不是,根本执行不了

我的回答在
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1854214