delphi Array 定义数组

var   A :   Array  [ 0..10 ]  of  Integer ; {定义静态数组}
procedure  TForm1 . Button1Click ( Sender :  TObject );
var   i : Integer ;
begin
   Memo1 . Clear ;
   for  i := Low ( A )  to  High ( A )  do
   begin
     Randomize ;
     A [ i ]  := Random ( 100 );
     memo1 . lines . add ( inttostr ( A [ i ]  ));
   end ;
end ;

///////////////////////

 

var   A :   Array  of  Integer ; {定义动态数组}
procedure  TForm1 . Button1Click ( Sender :  TObject );
var   i : Integer ;
begin
   Memo1 . Clear ;
   SetLength ( A , 10 ); {设置动态数组长度}
   for  i := Low ( A )  to  High ( A )  do
   begin
     Randomize ;
     A [ i ]  := Random ( 100 );
     memo1 . lines . add ( inttostr ( A [ i ]  ));
   end ;
   A := nil ; {释放动态数组}
end ;

动态数组的释放

//动态数组一般是不需要手动释放的, 如果需要...

var

  arr: array of Integer;

begin

  {设置动态数组维数}

  SetLength(arr,10);

  {释放方法一}

  arr := nil;

  {释放方法二}

  SetLength(arr, 0);

  {释放方法三}

  Finalize(arr);

end;

来自为知笔记(Wiz)