特急!!!!!各位大哥大姐帮帮我啊!我怎么判断数组是否为空 ,用nil 还是用assigned

Question

if ADOQuery1.Active then
  begin
    ADOQuery1.First ;
    for k := 0 to i do
    begin
      if m = 1 then
        bcount[k + 1] := ADOQuery1.Fields[0].asstring;
        ADOQuery1.Next ;
    end;
    if  acount = nil then
    begin
      for k := 0 to i do
      acount[k+1] := bcount[k+1];
    end;
     n := High(acount) - Low(acount) + 1;
     p := n;
    for  k := 0 to i do
    begin
      for  c := 0 to n   do
      begin
        if acount[n] <> bcount[i] then
        begin
        acount[p+1] := bcount[i];
        p := p+1;
        end;
      end;

Answer 1

各位高手能否告诉我Access violation at address 00404C6B in module 'Project1.exe'.Read of address 00000FAA报的什么错啊
老是报这个错
我都没有脾气了

Answer 2

ADOQuery1.First ;
    for k := 0 to i do   /// i是多少???
    begin
      if m = 1 then
        bcount[k + 1] := ADOQuery1.Fields[0].asstring;
        ADOQuery1.Next ;
    end;

Answer 3

我也不知道！
我值学了一星期。
不过我知道 ：assigned 测试 函数或过程变量是否为空！
             Nil好像是动态数组的时候挺管用，你在想象嘎！