delphi数组

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 plain copy print ?

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 plain copy print ?

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

也可以

[delphi]  view plain copy print ?

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