k:=0
for i:=1+k to image1.Width-1 do
begin
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)and
(newbitmap.Canvas.Pixels[i+1,j]=0)and(newbitmap.Canvas.Pixels[i-1,j]=0)then
memo2.Lines.Add(format('%d,%d',[i,j]));
k:=k+10;
怎么每次运行都不会运行这句啊:k:=k+10;
而且提示:value assigned to 'k'never used

对啊好象跟i;=i=k；没关系一样，请问能给我解决方案吗

那怎么样才可以实现i值的改变的　就是满足if语句的时候，怎样让i值不顺序的执行而是跳着执行呢　

我试过了 用while就进入死循环了好象~~具体点可以吗谢谢

xie谢谢这位老兄了呵呵