数组的赋值方法,可以一次给数组赋值(多个值)

Question

如题,可不可以一条语句给这个数组变量的每个元素赋值var a1: array[1..3] of integer;a1:=(100,101,102);             // 如何实现?

Answer 1

implementation
  var
  a1: array[1..3] of integer = (123,456,567) ;

Answer 2

//也可以这样用～～
procedure TForm1.FormCreate(Sender: TObject);
{$J+}
const
  a1: array[1..3] of integer = (123,456,567);
{$J-}
begin
end;

Answer 3

老大,这样不行的,
我要在具体代码中,根据具体的要求一次赋多个值.
begin
  a1[1]:=101;
  a1[2]:=102;
  a1[3]:=103;
  ...
  ...
  ... 
  //  改成一条语句来完成,可以吗?
  a1:=(101,102,103,.....);end;

Answer 4

那就是Pascal语法的问题，去建议borland改改OP ：）