关于获取数组的元素个数问题！（都来看看）

Question

var ii: Integer;
for ii := Low(array_char) to High(array_char) do
begin
  
end;

Answer 1

好像不用那么麻烦吧
  i := High(array_char)-Low(array_char)+1;

Answer 2

const
  MyArray:  Array[0..9]of char = ('0','1','2','3','4','5','6','7','8','9');
var
  p:PChar;
begin
  p := MyArray;
  while p < MyArray + Length(MyArray) do
  begin
    ShowMessage(P^);
    Inc(p);
  end;
end;

Answer 3

const
  MyArray:  Array[0..9]of char =('0','1','2','3','4','5','6','7','8','9');
var
point:^char;
  i,ii:integer;//数组元素个数
begin  i:=0;
  point:=@array_char;
  ii:=strlen(pchar(point));
  while (i<ii） do
     begin
       i:=i+1;
     end;
end;