数组的定义和应用
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;
var
i :Integer;
begin
for I := 0 to 5 do
begin
ShowMessage(IntToStr( iCount[i] ));
end;
end;
、