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