//轮廓的提取
procedure TForm1.Button3Click(Sender: TObject);
var
  x,y:integer;
  p,q,r,o:PByteArray;// 若一个黑点，旁边的8个点都是黑色，怎该点设为白色
  Sbmp,destBmp:Tbitmap;
begin
  sbmp:=Tbitmap.Create;
  destBmp:=Tbitmap.Create;
  sbmp.Assign(image2.Picture.Bitmap);
  //原位图的高宽赋给提取后的位图
  destbmp.Width :=sbmp.Width ;
  destbmp.Height :=sbmp.Height;
  destbmp.Assign(sbmp);      for y:=1 to destBmp.Height -2 do
  begin
//扫描3条相邻行的象素
    o:=sbmp.ScanLine[y];
    p:=sbmp.ScanLine [y-1];
    q:=sbmp.ScanLine [y];
    r:=sbmp.ScanLine[y 1];
    for x:=1 to destbmp.Height -2 do
     if (o[3*x]=0) then
       if((p[3*(x-1)]=0)and (p[3*x]=0) and (p[3*(x 1)]=0) and (q[3*(x-1)]=0)and (q[3*x]=0) and (q[3*(x 1)]=0) and (r[3*(x-1)]=0)and (r[3*x]=0) and (r[3*(x 1)]=0)) then
           begin
           // 设置该点为白色
             o[3*x 1]:=255  
             o[3*x]:=255   这行报错，恳请前辈指点错误原因并帮忙修改 
             o[3*x 2]:=255
           end;
   end;
   image3.Picture.Assign(destbmp);
end;

[ 研二的女生 發表人 - 小丫123 於 2005/03/26 16:26:00

报什么错误？                 o[3*x 1]:=255 －>后面的“;”分号哪里去了？，是不是忘记打了。 o[3*x]:=255 这行报错，恳请前辈指点错误原因并帮忙修改 o[3*x 2]:=255 發表人 - Vicen 於 2005/03/28 14:16:51