数组的定义和应用

1.数组定义：

var

  数组标志符 : Array[0..100] of integer;

注意，只有全局数组才能赋初值

如：

var

  num : array[0..5] of integer = (1,2,3,4,5,6); 

 

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  for I := 0 to 5 do
  begin
    ShowMessage(IntToStr( iCount[i] ));
  end;

end;

、