可否一次指定陣列元素呢? 例如 var aTest: Array[0..2] of String; begin aTest[0]:='test0'; aTest[1]:='test1'; aTest[2]:='test2'; end; 可否一次指定, 例如 var aTest: Array[0..2] of String; begin aTest:=['test0', 'test1','test2'] end; 發表人 - will 於 2004/12/04 11:02:41

    procedure TForm1.Button1Click(Sender: TObject);
var a:variant;
    i:integer;
begin
  a:=VarArrayCreate([0, 4],  varInteger);
  a := VarArrayOf([1, 10, 100, 1000]);
  for i:=VarArrayLowBound(a,1) to VarArrayhighBound(a,1) do begin
     showmessage(vartostr(a[i]));
  end;
end;    

用 const 即可   

const
  atest: array[0..2] of string=
    ('test0', 'test1', 'test2') ;
 

而且 delphi 中的 const 是可以新程式中指定新的值, 所以要改變初始值的內容也沒問題. atest[1]:='Change1' ; 這樣是可以的.... ...

------
水瓶男的blog: http://791909.blogspot.com