一篇有關於 New, Dispose 的相關資料

[tim]

一篇有關於 New, Dispose 的相關資料:

http://delphi.ktop.com.tw/TOPIC.ASP?TOPIC_ID=28402

----------------------------------------------------------------

代碼: 選擇全部

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;