数组

var
  MyArr: array[0..1, 0..2] of char;
begin
MyArr[0,0] := 'a';
MyArr[0,1] := 'b';
MyArr[0,2] := 'c';
MyArr[1,0] := '1';
MyArr[1,1] := '2';
MyArr[1,2] := '3';
MyArr[0,0] := Chr(0);
ShowMessage(MyArr[0]);

end;

1.给动态数组添加元素

[delphi] view plaincopyprint?

1. type
2. //定义数组类型  
3.   TOneArray = array of Integer;    
4. {动态数组添加一个元素}
5. procedure AddArrayItem(var arr: TOneArray;x:Integer);    
6. begin
7. //设置数组长度+1  
8.   SetLength(arr,Length(Arr)+1);    
9.   Arr[High(arr)]:=x;    
10. end;   

2.定义静态数组

[delphi] view plaincopyprint?

1. //标准方法  
2. var
3.   MyArr: array[0..10] of Integer;   

也可以

[delphi] view plaincopyprint?

1. type
2.   TMyArr =array[0..10] of Integer;    
3. var
4.   MyArr : TMyArr;