type TPerson = Record Name : String; sex : integer; end; APerson = Array[1..10] of TPerson; PPerson = ^APerson; ...... procedure TForm1.Button1Click(Sender: TObject); var Person : PPerson; begin getmem(Person, 10*sizeof(TPerson)); Person^[1].name:='Sam'; Person^[2].name:='Peter'; //去到這句就有問題，點解呀﹖ freemem(Person, 10*sizeof(TPerson)); end; 點解 Person^[2].name:='Peter'; 這句有問題??????

Hi, 建議你修改如下:

procedure TForm1.Button1Click(Sender: TObject);
var 
  Person : PPerson; 
begin
  getmem(Person, 10*sizeof(TPerson));
  // 改為
  New(Person);
  Person^[1].name:='Sam';
  Person^[2].name:='Peter'; 
  freemem(Person, 10*sizeof(TPerson));
  // 改為
  Dispose(Person);
end;

若你一定要用 GetMem function 的話, 要注意, record 中的變數型態不可以為指標性的型態, 如 string. 因為 string 在 delphi 中是一個指標行為的變數, 所以在 SizeOf(TPerson) 會得到 8 bytes. 也就是 Name 是一個 4 bytes 的指標, 而 sex 是一個 4 bytes 的 integer. 如此一來, 會發生的問題在於 Name 僅有指標而無真實的配置空間, 會發生問題的. 所以正確的操作方式應該利用 New 來進行動態分配記憶體空間, 這樣才能正確地配置所有 record 下的變數. 當然, 如果你的 record 中的變數是非指標性的, 也就是固定資料, 如:

  TPerson = Record
    age : integer;
    sex : integer;
  end;

這樣就可以用了, 或是利用 array of char, ShortString, String[n] 也行

  TPerson = Record
    Name : Array[1..100] of Char; // 佔 100 bytes
    Name2 : ShortString; // 佔 256 bytes (第一碼為長度, 1..255 個 char)
    Name3 : String[20];  // 直接宣告長 20 個字 (1..20) 的 21 bytes 的 stortstring
    sex : integer;
  end;