delphi TList TArray 简单用法

procedure TForm8.Button1Click(Sender: TObject);

type

  TDataRec = record

    ID: integer;

    Name: string;

  end;

var vDataRec: TDataRec;

    vDataList: TList<TDataRec>;

     vArray: TArray<TDataRec>;

    i, vMax: integer;

begin

  vMax := 10000000;

  vDataList := TList<TDataRec>.Create;

  try

    for i := 1 to vMax do

    begin

       vDataRec := Default(TDataRec);

       vDataRec.ID := i;

       vDataRec.Name := 'X';

       vDataList.Add(vDataRec);

    end;

  finally

    vDataList.Free;

  end;

  SetLength(vArray, vMax);

  for i := 0 to vMax-1 do

  begin

    vArray[i].ID := i;

    vArray[i].Name := 'X';

  end;

  vArray := nil;

end;