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




  • 相关阅读:
    IO
    File
    jdbc
    HashMap
    网络通信
    lambda
    Queue
    反射
    Stack
    AC自动机题目选讲
  • 原文地址:https://www.cnblogs.com/xe2011/p/2527325.html
Copyright © 2020-2023  润新知