如何一次性对数组赋值

Question

请问;
  如何一次性对数组赋值，
比如
  asarray = array[1] of string;我想让asarray(0):='你';
     asarray(1):='好';
 这样asarray=['你','好']要报错

Answer 1

var
  i :integer;
  asarray = array[0..1] of string;
  Str :string;
begin
  asarray[0] := '你';
  asarray[1] := '好';
  Str := '';
  for i := Low(asarray) to High(asarray) do
  begin
    Str := Str + asarray[i];
  end;
  Showmessage(Str);
end;

Answer 2

可以这样写(不适用于局部变量):var
  asarray : array[0..1] of string = ('你', '你');

Answer 3

jadeluo(秀峰) 
可以这样写(不适用于局部变量):难道在声明局部变量只能是;
var
  asarray = array[0..1] of string;
begin
  asarray[0] := '你';
  asarray[1] := '好';
   这样好麻烦的嘛

Answer 4

局部也可以, 定义在 const下, 而不是 var

Answer 5

VarToStr,F2查一下。有一个用Variant转数组的函数。或许有用。