我找到上次代码的问题了
最后一段画线的代码
for k=1 to j-1 do
begin
drawline(barpos=diIndex[k] && diIndex[k]<>0,l,barpos=dgIndex[k] && dgIndex[k]<>0 , h,0,colorwhite,1,VTDOT);
drawline(barpos=dgIndex[k] && dgIndex[k]<>0,h,barpos=diIndex[k+1] && diIndex[k+1]<>0 , l,0,colorwhite,1,VTDOT);
end;
加上就很卡 画线也错误
把这个去了 前面的很流畅
加上循环语句后,如果循环的数量过大,自然要占用很多时间
以下是引用王锋在2013/7/8 12:38:31的发言:
加上循环语句后,如果循环的数量过大,自然要占用很多时间
我前面有3个大循环了 都很流畅
就加了这个 就卡的不行了