曾经想过, Delphi 要能这样给数组赋值就好了: arr := [...]; VarArrayOf 可不是新东西, 不过之前还没习惯用它.
var bs: TBytes; // bs: TArray<Byte>begin// SetLength(bs, 3); bs := VarArrayOf([11, 22, 33]); ShowMessage(IntToStr(bs[2])); //33end; var strArr: TArray<string> begin// SetLength(strArr, 3); strArr := VarArrayOf(['AAA','BBB','CCC' ]); ShowMessage(strArr[2]); //CCCend;
这只用于动态数组, 甚至支持泛型写法, 但不支持静态数组; 但当做函数参数时, 只支持传统动态数组的写法.
function GetSum(aArr: arrayof Integer): Integer; var i: Integer; begin Result := 0; for i in aArr do Inc(Result, i); end; procedure TForm1.FormCreate(Sender: TObject); var n: Integer; begin n := 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[] 不同, 它快多了!
以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索数组
, vba动态数组赋值
, integer
, 支持
写法
delphi 数组赋值、delphi动态数组赋值、delphi二维数组赋值、delphi 字符数组赋值、delphi静态数组赋值,以便于您获取更多的相关知识。
时间: 2024-10-24 18:49:40