在函数中如果数组的个数不定,可以使用开放数组参数 实参可以接受静态数组和动态数组 procedure p1(a:array of Byte); begin ShowMessage( IntToHex( Integer(@a),2)); ShowMessage(IntToStr(a[0])); end; procedure TForm1.btn1Click(Sender: TObject); var a:array[0..5] of Byte; begin ShowMessage(IntToHex( Integer(@a),2)); p1(a); end; procedure TForm1.btn2Click(Sender: TObject); var a:array of Byte; begin SetLength(a,10); a[0]:=10; ShowMessage(IntToHex( Integer(@a),2)); p1(a); end; 经常使用的 array of const 类型的数组就能实现把不同类型、不同个数元素组成的数组一下子传递给例程。如下面Format 函数的定义: function Format (const Format: string; const Args: array of const): string;