求助：为什么for循环里面的continue到最后一次就出现"List index out of bounds(0)"

Question

代码如下：（用来检测某条记录是否在60秒以内更新，如果不是则清除数据。数据库是mysql使用mydac连接）
  j:=0;
  for i:=0 to length(SourceInfo)-1 do
  begin
    Sql:='select UNIX_TIMESTAMP(UpdateTime),UNIX_TIMESTAMP() from '+SourceInfo[i][0]+' where Id='+SourceInfo[i][1];
    fMyQuery.SQL.Clear;
    fMyQuery.SQL.Add(Sql);
    fMyQuery.Open;
    if fMyQuery.Fields[1].AsInteger-fMyQuery.Fields[0].AsInteger > 60 then
    begin
      setlength(ClearData,j+1);
      setlength(ClearData[j],2);
      ClearData[j][0]:=SourceInfo[i][0];
      ClearData[j][1]:=SourceInfo[i][1];
      j:=j+1;
      Continue;
    end;
    {do something}
  end;

Answer 1

估计是因为变量i范围越界。最后一次循环后再continue强行进入循环体，导致SourceInfo[i][0]越界。

Answer 2

这个问题我也想过，也去试了其他程序用continue就是没有这段的问题多var 
  aa :  array of string
  f  :  integer;
begin
setlength(aa,10);
for f:=0 to length(aa)-1 do
begin
  continue;
end;这样写应该和上面差不多吧，可就是没有那个错误。