else if(btGray = 0)then
begin
for nAngle := 0 to nMaxAngle-1 do
begin
nDist := Round(Abs(nCol*cos(nAngle*PI/180.0) +
nRow*sin(nAngle*PI/180.0)));
Inc(arrTransArea[nDist*nMaxAngle + nAngle]);
end;
end;
这段代码中Inc(arrTransArea[nDist*nMaxAngle + nAngle]);这句是要实现什么呢？

你知道Inc(arrTransArea[1])是要实现什么吗？

inc(a,n) --》a:=a+n,n默认为1,即加1,dec(a,n) ,n默认为1 a:=a-n;