Delphi中数组赋值

Delphi中数组赋值2013-12-12曾经想过, Delphi 要能这样给数组赋值就好了: arr := [...]; VarArrayOf 可不是新东西, 不过之前还没习惯用它.

varbs: TBytes;//  bs: TArray<Byte>begin//  SetLength（bs, 3）;bs := VarArrayOf（[11, 22, 33]）;ShowMessage（IntToStr（bs[2]））; //33end; varstrArr: TArray<string>begin//  SetLength（strArr, 3）;strArr := VarArrayOf（["AAA","BBB","CCC"]）;ShowMessage（strArr[2]）; //CCCend;

这只用于动态数组, 甚至支持泛型写法, 但不支持静态数组; 但当做函数参数时, 只支持传统动态数组的写法.

function GetSum（aArr: arrayof Integer）: Integer;vari: Integer;beginResult := 0;for i in aArr do Inc（Result, i）;end; procedure TForm1.FormCreate（Sender: TObject）;varn: Integer;beginn := GetSum（[1, 2, 3]）;ShowMessage（IntToStr（n））;//6 n := GetSum（[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]）;ShowMessage（IntToStr（n））; //55end;

还有一个 GDI+ 中非常好的功能之前被忽视了, 现在才知道它的好: 这就是 GDI+ 中 Bitmap 的 Pixels[] 属性, 和 Canvas.Pixels[] 不同, 它快多了！