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;
------------------------------------------------------------------------------------------
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;
代碼: 選擇全部
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;