代码改变世界

Delphi 动态数组另类笔记

2011-12-26 22:10  一人游走  阅读(546)  评论(0)  编辑  收藏  举报

数组初始化

　　TMyArray : array of Integer;

　　// ...

　　A := TMyArray.Create(1,2,3); //居然还能这样写，不过这种写法还是比较少见。 http://docwiki.embarcadero.com/RADStudio/en/Structured_Types#Dynamic_Arrays

 

代码:

procedure TForm1.FormCreate(Sender: TObject);
var
  A1: TArray<Integer>;
  A2: TArray<TArray<Integer>>;
  B1: TArray<Integer>;
begin
  A1 := TArray<Integer>.Create(11, 22); // (11,22)
  A2 := TArray<TArray<Integer>>.Create(A1, TArray<Integer>.Create(33, 44, 55)); // ((11,22),(33,44,55))

  B1 := Copy(A1);
  B1[0] := 0; // B1[0]<>A1[0]

  B1 := A1;
  B1[0] := 0; // B1[0]=A1[0]
end;