delphi Array 定义数组

最新推荐文章于 2024-02-02 09:24:18 发布

weixin_30335353

最新推荐文章于 2024-02-02 09:24:18 发布

阅读量1.6k

点赞数

原文链接：http://www.cnblogs.com/xe2011/archive/2012/05/31/2527325.html

版权

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);

{释放方法三}