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

wangxd 2003-12-10 10:37:36

在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";
....

...全文

138 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

xyc189 2003-12-10

打赏
举报

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');
begin

end;
这样也是可以的啊

wangxd 2003-12-10

打赏
举报

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

xyc189 2003-12-10

打赏
举报

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');

wangxd 2003-12-10