数组赋值的问题

Question

MyStr: array[0..3] of String;怎样给这个数组赋值，数组中各个元素都不同，一个元素一个元素赋值的方法就不用说了。
我在一个过程中声明这样的数组，怎样快速赋值？

Answer 1

清除
 fillchar()
 zeromemory()内存COPY
  move()
  copymemory()自己找找这些函数的帮助吧.

Answer 2

你理解错了。
MyStr[0]:= 'abc';
MyStr[1] := 'def';
MyStr[2] := 'ghi'; 这样可以。
但现在我想把这三个语句写成一个赋值语句，就像C++中一样。因为我程序中有多个这样的数组，要是像上面那样做，汗！
又不想把MyStr声明成全局的，那样浪费内存。

Answer 3

for i:=0 to 3 do
mystr[i]:='abc'

Answer 4

delphi好像不支持一次性对数组赋值，结构体好像也不行

Answer 5

var 
  str_str : string;
  str_str := 'abc,def,asd,';
  ArrayJH : Array of string ;
begin
  setlength(ArrayJH,3);
  while length(str_str)>1 do
  begin
    ArrayJH[i] := copy(str_jh,0,pos(',',str_str)-1);
    str_str := copy(str_jh,pos(',',str_str)+1,length(str_str));
    i := i + 1;
  end;
end;