Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
小弟需要宣告一個陣列 其元素個數尚未確定 要如何宣告這一陣列呢?
以前與網友討論時曾寫過以下的兩個例子, 您可以參考看看:
(* 一維動態陣列 *) procedure TForm1.Button1Click(Sender: TObject); type TIntegerArray = array[0..0] of integer; PIntegerArray = ^TIntegerArray; var pArrayOfInteger: PIntegerArray; j: integer; begin GetMem(pArrayOfInteger, 10 * SizeOf(Integer)); for j := 0 to 9 do pArrayOfInteger^[j] := j; FreeMem(pArrayOfInteger, 10 * SizeOf(Integer)); end; (* 二維動態長度陣列 *) type TSingleArray = array[0..0, 0..0] of single; PSingleArray = ^TSingleArray; var pArrayOfSingle: PSingleArray; i, j: integer; begin try GetMem(pArrayOfSingle, 1000 * 1000 * SizeOf(single)); for i := 0 to 999 do for j := 0 to 999 do pArrayOfSingle^[i, j] := 0; finally FreeMem(pArrayOfSingle, 1000 * 1000 * SizeOf(single)); end; ShowMessage('Done'); end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |