if (newbitmap.Canvas.Pixels[i,j-1]=0)and(newbitmap.Canvas.Pixels[i,j+1]=0)and
(newbitmap.Canvas.Pixels[i-1,j-1]=0)and(newbitmap.Canvas.Pixels[i-1,j+1]=0)and
(newbitmap.Canvas.Pixels[i+1,j-1]=0)and(newbitmap.Canvas.Pixels[i+1,j+1]=0)then
memo2.Lines.Add(format('%d,%d',[i,j]));
i:=i+3
else
inc(i);


memo2.Lines.Add(format('%d,%d',[i,j]));
i:=i+3 这个怎么让它们都执行而不出错 谢谢了 在线急等
就是解决下if ...then 后面那个两个语句都执行而不出错!

[此贴子已经被作者于2007-4-21 22:34:17编辑过]

出什么错了？

就是if..then语句后连续跟两个执行语句是那样写吗?

加上begin ...end

谢谢!!