![18561014.png](edf2b838-db06-4495-b5c2-0c04de80e153_files/18561014.png)
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 ;
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 ;
///
![292014257742906.png](https://i-blog.csdnimg.cn/blog_migrate/304d595ab338d86951c6b607fca94e22.png)
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 ;
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;