if  Assigned(acount)  then
    begin
      for k := 0 to i do
        acount[k+1] := bcount[k+1];
     end;
     n := length(acount);    for  k := 0 to i do
    begin
      for  c := 0 to n   do
      begin
        if acount[n] <> bcount[i] then
        begin
        acount[n+1] := bcount[i];
        n := n+1;
        end;
      end;
     bcount := nil;
     end;
这里的n代表数组acount中有多少个数
我怎么才能测试出来啊??
拜托大家了
我急用!!!!!!!!!!
在线等