sum是什麼時候確定的?可以申請一塊記憶體，然後用迴圈 for i := 0 to sum - 1 do 根據指標填入數值作為返回值 如果嫌每次計算地址麻煩 可以仿照這樣定義:// define Array types, !!type TByteArray = array[0..0] of Byte; PByteArray = ^TByteArray;TWordArray = array[0..0] of Word; PWordArray = ^TWordArray; TIntArray = array[0..0] of Integer; PIntArray = ^TIntArray; TRectArray = array[0..0] of TRect; PRectArray = ^TRectArray; TPalArray = array[0..0] of TPaletteEntry; PPalArray = ^TPalArray; 然後定義指標可以直接用陣列下標來訪問var x: PIntArray; i: Integer;begin x[i] := 8;end;