SQl Server 2000 中表的值赋值给数组的问题

Question

Tzj.Close;
Tzj.Open;
zjarrayrows:=Tzj.RecordCount ;
Tzj.Last;
if zjarrayrows >= 500 then
 begin
  SetLength(zjarray,500,5);
       zjarrayrows:=500;
       for i:=500 to 1 do
        for j:=1 to 5 do
        begin
         zjarray[i-1,j-1]:=Tzj.fields[j].asstring;
         Tzj.Prior;
        end;
 end
 else
 begin
   SetLength(zjarray,zjarrayrows,5);
   for i:=zjarrayrows to 1 do
    for j:=1 to 5 do
     begin
      zjarray[i-1,j-1]:=Tzj.
     end;
 end;
当写到：“zjarray[i-1,j-1]:=Tzj. ”       时
显示错误为：[Pascal Error]:Unable to invoke Code Completion due to errors in source code
这是为什么啊！

Answer 1

zjarray[i-1,j-1]:=Tzj.
???
是不是代码没帖全啊
zjarray[i-1,j-1]:=Tzj.fields[j].asstring;

Answer 2

这是变量的定义：
var zjarrayrows : integer;
    zjarray : array of string;

Answer 3

for i:=zjarrayrows to 1 do
    for j:=1 to 5 do
     begin
      zjarray[i-1,j-1]:=Tzj.//源代码是这样的？！
     end;

Answer 4

zjarray :array of array of string;  //这才是二维数组