一个简单的数组问题！

Question

能直接给数组初始化吗？还是赋值？
...
var
  Fell: array [0..5] of string = ('hello','ok',why','what',you','my')；
...或是：
...
var 
  Fell: array [0..5] of string;
begin
  Fell := ('hello','ok',why','what',you','my')；
end；
两种方法都不行，不必一个个赋值吧？
问题比较简单，但却为难了我，清大家帮忙！

Answer 1

这么写：
TYPE 
 StringArray = array [0..5] of string ;
VAR
 Fell : StringArray=('hello','ok',why','what',you','my')；
这个Fell应该是全局变量。

Answer 2

这样可以：
  Var S:  Array[1..4] of String = ('A','B','C','D');但是，字符数组不能在过程或函数中说明，即只能是单元内“全局”变量。

Answer 3

楼上，若想在过程或函数中说明地话是不是只能一个个赋值：
var
  StringArray = array [0..5] of string；
begin
  StringArray[0] := 'hello'；
  StringArray[1] := 'ok'；
  StringArray[2] := 'why'；
  StringArray[3] := 'what'；
  StringArray[4] := 'you'；
  StringArray[5] := 'my'；
...
end；这样好像有点麻烦，不知还有没有别的方法？

Answer 4

var
  Form1: TForm1;
  Fell: array [0..5] of string = ('hello','ok','why','what','you','my');implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer;
begin
for i := 0 to 5 do
  ShowMessage(fell[i]);
end;
这样可以