我有一很多個 integer 的 varibles 我想用一個 array 把它們裝起來 要怎樣宣告呢? 謝謝大大

var   i:array[0..1023] of inetger; 或者採用動態陣列的宣告!

var
  i:array of inetger;
begin
  setlength(i,1024);
end;

Best Regards, Rex Chiu

------
Best Regards,
Rex Chiu

不好意思 不是這個意思 是: var a,b,c : integer arrayofinteger : array [1..10] of integer = (a,b,c); 這樣可以嗎?

引言: 不好意思 不是這個意思 是: var a,b,c : integer arrayofinteger : array [1..10] of integer = (a,b,c); 這樣可以嗎?

這樣不行. 你要自己一個一個填入array中 arrayofinteger[1]:=a; arrayofinteger[2]:=b; arrayofinteger[3]:=c; 這樣才行

是不是要這樣子,搞不懂你的用途?? type TMyRecord=record a, b, c:integer; end; var MyRecord:array[0..10] of TMyRecord; MyRecord[0].a:=1; MyRecord[0].b:=2; MyRecord[0].c:=3; ........ ........

我的用法是 我有很多的 interger 變數 要init 所以我想用一個array 把它裝起 然後用for loop 去 init

其實我不太懂你的需求,可是如果真的都那麼麻煩 你可以宣告一個字串陣列 SS:array[0..1023] of string; 然後你後面跑迴圈時再去針對資料做處理 相信字串裡面你要存多少個數字進去都沒問題只要轉型就ok了 ss[1]:= '10,20,30'; ss[2]:= '12,22,23'; ss[3]:= '11,10,20'; 這樣可以嗎??

真的不好意思, 我說得不太清楚 我的意思是 有 很多 var a,b,c,d... :integer 然後我想要一個 testarrary : array [0..10] of ?? testarray[0] := a; testarray[1] := b; testarray[2] := c; . . . 然後我可以用一個for loop 去 init 裡面變數的值 謝謝

蠻有趣的想法, 我的做法會採用TList將每一個變數的Pointer收集起來。 到時候就能以你的想法, 以迴圈的方式將全部的變數初始化。 希望這麼做能達到你的目的。

路過。 用多維陣列的方式不就可以解決了嗎？！ arrayofinteger : array [1..10, 1..3] of integer; for i := 1 to 10 do for j := 1 to 3 do ...... 或者用Dracula所說的記錄類型Record.

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

引言: 蠻有趣的想法, 我的做法會採用TList將每一個變數的Pointer收集起來。 到時候就能以你的想法, 以迴圈的方式將全部的變數初始化。 希望這麼做能達到你的目的。

我也想過這樣 但這樣不是每一個變數有一個pointer?

每一個變數本來就有一個pointer. var a,b,c: Integer; MyList: TList; begin a:=1; b:=2; c:=3; MyList:=TList.Create; MyList.Add(@a); MyList.Add(@b); MyList.Add(@c); // 將全部的變數都改成5 for i:=0 to 2 do begin Integer(MyList.Items[i]^):=5; end; // 以訊息的方式確認變數的內容 ShowMessage(IntToStr(a)); // 此時變數a的值就改變了.. MyList.Free; end;

哦 想不到這樣 謝謝 看來我的要再惡補我的基礎