type PDeviceInfo = ^TDeviceInfo; TDeviceInfo = packed record status: Boolean; DisconnectTime: TDateTime; end; DeivceInfo: PDeviceInfo ; GetMem(DeivceInfo, 3* Sizeof(PDeviceInfo)); 如上，我宣告了一個記錄的結構，然後我分配了三份的空間給它，我該如何取得第二份的資料？ 我試過用 DeviceInfo.status <- 這樣的作法是可行的，可是只能取第一份資料，如果用 DeviceInfo[1].status <- 這樣的語法是不可行的，是我哪裡還需要補充什麼嗎？

PDeviceInfo(pointer(integer(pointer(DeivceInfo))+2*SizeOf(TDeviceInfo)))^.Status Or you should simply try to create dynamic array (D6 ?) DeivceInfo : array of TDeviceInfo; {...} SetLength(DeviceInfo,3); Then... DeviceInfo[2].Status

想用陣列不是應這樣嗎?

type
  ADeviceInfo = Array[1..3] of PDeviceInfo
  PDeviceInfo = ^TDeviceInfo;
  TDeviceInfo = packed record
    status: Boolean;
    DisconnectTime: TDateTime;
  end;    For i := 1 to 3 do
  GetMem(ADeviceInfo[i],Sizeof(PDeviceInfo));
status1 := ADeviceInfo[1].status;
status2 := ADeviceInfo[2].status;

ADeviceInfo 也應也可設定成動態的。

我有試過你寫的這一段 code ，是可以執行的，但有一個地方不是很了解，希望你能解答一下，關於   ADeviceInfo = Array[1..3] of PDeviceInfo <-這是因為我們宣告的是一個指標的 array ，但是並沒有分配給它空間，所以我們必需指定GetMem(ADeviceInfo[i],Sizeof(PDeviceInfo));這樣我們的程式才可以使用？    ADeviceInfo = Array[1..3] of TDeviceInfo <-那這樣宣告的話，是不是我們就宣告了一個 TDeviceInfo 的結構陣列，在這個時候，記憶體的空間已經分配，所以就可以直接拿來使用？    

引言: 想用陣列不是應這樣嗎?

type
  ADeviceInfo = Array[1..3] of PDeviceInfo
  PDeviceInfo = ^TDeviceInfo;
  TDeviceInfo = packed record
    status: Boolean;
    DisconnectTime: TDateTime;
  end;    For i := 1 to 3 do
  GetMem(ADeviceInfo[i],Sizeof(PDeviceInfo));
status1 := ADeviceInfo[1].status;
status2 := ADeviceInfo[2].status;

ADeviceInfo 也應也可設定成動態的。

照我所知的應該是，因為 ADeviceInfo = Array[1..3] of PDeviceInfo 只是預定了記憶體給 3 個 Pointer，而沒有分配記憶體給 Pointer 所指向的 TDeviceInfo。