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

发布时间：2020-12-15 10:15:01 所属栏目：大数据来源：网络整理

导读：我想做一些像PHP，Python和大多数其他编程语言的东西： my_array_name = [128,38459,438,23674...] 所以我试图复制这个在Delphi / Pascal最好的我可以： HSVtoRGB := [0,0]; (这是一个返回给定HSV值的RGB数组的函数。) 但我收到错误： [DCC Error] Unit2.pas

我想做一些像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记录。 (记录和数组不一样，但是。)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!