最菜鸟的数组方面的问题~！！

Question

如何得知数组已用的INDEX数?  例：
procedure TForm1.cxButton3Click(Sender: TObject);
var
  A:Variant;
begin
  A := varArrayCreate([0,100],varVariant);
  A[0] := 0;
  A[1] := 1;
  A[2] := 2;
  A[3] := 3;
  A[4] := 4;
  我定义的数组最大上限是101个，可是，我如何得知，我只用了5个，得知INDEX为4？？？？
end;

Answer 1

就可以有函数得知已用的INDEX

Answer 2

var
  i:integer;
begin
  for i:=0 to 100 do
  begin
    if VarToStr(A[i])='' then
      Showmessage(IntToStr(i-1));
    Break;
  end;

Answer 3

我就是不想用记数器，DELPHI没有这个函数吗？

Answer 4

var
  A:Variant;
  i : integer;
begin
  A := varArrayCreate([0,100],varVariant);
  A[0] := 0;
  A[1] := 1;
  A[2] := 2;
  A[3] := 3;
  A[4] := 4;
  for i :=0 to 100 do
    if VarIsEmpty(A[i]) then
    begin
      ShowMessage(IntToStr(j));
      Break;
    end;

Answer 5

var
  i:integer;
begin
  for i:=0 to 100 do
  begin
    if VarToStr(A[i])='' then
    begin
      Showmessage(IntToStr(i-1));
      Break;
    end;
  end;

Answer 6

Low(),返回数组的上标
High(),返回数组的下标
Length(),返回数组的长度