bcb向delphi转行，字符串数组如何赋初值？？

Question

在bcb中我可以这样赋值：
AnsiString tmpact[28]={"Acknowledge","LookDown",
"Sad","Alert","LookDownBlink","Search","Announce",
"LookUp","Blink","LookUpBlink","Confused",
"LookLeft","Suggest","Congratulate","LookLeftBlink",
"Surprised","Decline","LookRight","Think",
"DontRecognize","LookRightBlink","Wave","Explain",
"Write","Pleased","Read","Greet","RestPose"};
在delphi中我应该怎样做？？
我不想这样做，太费劲了
tmpact[0]:="aa";
tmpact[1]:="bb";
tmpact[2]:="cc";
....

Answer 1

const
  tmpact:Array[0..27] of AnsiString=('Acknowledge','LookDown',
    'Sad','Alert','LookDownBlink','Search','Announce',
    'LookUp','Blink','LookUpBlink','Confused',
    'LookLeft','Suggest','Congratulate','LookLeftBlink',
    'Surprised','Decline','LookRight','Think',
    'DontRecognize','LookRightBlink','Wave','Explain',
    'Write','Pleased','Read','Greet','RestPose');

Answer 2

我试验了，只能把以上代码写在var后，implementation前，不能写在其它地方，为何？？？

Answer 3

procedure TForm2.BitBtn1Click(Sender: TObject);
const
  tmpact:Array[0..27] of AnsiString=('Acknowledge','LookDown',
    'Sad','Alert','LookDownBlink','Search','Announce',
    'LookUp','Blink','LookUpBlink','Confused',
    'LookLeft','Suggest','Congratulate','LookLeftBlink',
    'Surprised','Decline','LookRight','Think',
    'DontRecognize','LookRightBlink','Wave','Explain',
    'Write','Pleased','Read','Greet','RestPose');
beginend;
这样也是可以的啊