可以在Delphi/Pascal中一次性分配数组中的项目吗？

我想做一些像PHP，Python和大多数其他编程语言的东西：

my_array_name = [128,38459,438,23674...]

所以我试图复制这个在Delphi / Pascal最好的我可以：

HSVtoRGB := [0,0];

(这是一个返回给定HSV值的RGB数组的函数。)

但我收到错误：

[DCC Error] Unit2.pas(44): E2001 Ordinal type required
[DCC Error] Unit2.pas(45): E2010 Incompatible types: 'HSVRealArray' and 'Set'

任何想法？这是学校的工作 – 但我的老师不知道答案。

解决方法

当涉及动态数组时，是的：

type
  TIntArray = array of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  MyArr := TIntArray.Create(10,20,30,40);
end;

当涉及到静态数组时，需要编写一个帮助函数：

type
  TIntArray = array[0..2] of integer;

function IntArray(const A,B,C: integer): TIntArray;
begin
  result[0] := A;
  result[1] := B;
  result[2] := C;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TIntArray;
begin
  MyArr := IntArray(10,30);
end;

这类似于Point函数如何创建一个TPoint记录。 (记录和数组不一样，但是。)

可以在Delphi/Pascal中一次性分配数组中的项目吗？

解决方法

相关文章