急！急！高手请进！！！

[mouse12435]

本人对DELPHI不熟，遇到个小问题，望高手请进！万分感谢！

for j:=0 to DBGrid.DataSource.DataSet.RecordCount-1 do
begin
ret:=BitBlt(Printer.Canvas.Handle,SrcRect.Left,SrcRect.Top,SrcRect.Right
,SrcRect.Bottom, Bitmap.Canvas.Handle,0,0,SRCAND); //srcCopy
if ret_p=false then
begin
showmessage('打印图像失败,请重试！');
printer.Abort;
Dec(j);///这里报错,assignment to for-loop variable 'j'

continue;

end;
DBGrid.DataSource.DataSet.Next;

end;

Dec(j);///这里报错,assignment to for-loop variable 'j'

为什么这里会报错呢?先谢过!

[jadeluo]

For循环的循环体中是不允许修改循环变量的值的。

[jadeluo]

改成这样试试：

j := 0;
while j < DBGrid.DataSource.DataSet.RecordCount do
begin
ret:=BitBlt(Printer.Canvas.Handle,SrcRect.Left,SrcRect.Top,SrcRect.Right
,SrcRect.Bottom, Bitmap.Canvas.Handle,0,0,SRCAND); //srcCopy
if ret_p=false then
begin
showmessage('打印图像失败,请重试！');
printer.Abort;
end
else begin
DBGrid.DataSource.DataSet.Next;
inc (j);
end;
end;

[Jethill]

完全同意楼上的说法。像上面所给的代码应该正确。
如果不用while循环，仍用for循环，不妨在循环中设置一个中间变量，然后将j和中间变量进行比较，如果不等，则不执行任何操作，否则执行。如下
i:=0;
for j:=0 to DBGrid.DataSource.DataSet.RecordCount-1 do
begin
if i=j then
begin
ret:=BitBlt(Printer.Canvas.Handle,SrcRect.Left,SrcRect.Top,SrcRect.Right
,SrcRect.Bottom, Bitmap.Canvas.Handle,0,0,SRCAND); //srcCopy
if ret_p=false then
begin
showmessage('打印图像失败,请重试！');
printer.Abort;
Dec(i);///这里报错,assignment to for-loop variable 'j'

continue;

end;
DBGrid.DataSource.DataSet.Next;

end
else
i:=j;
end;