delphi pchar 指標錯誤

標籤：

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

var   P: Pchar; //P 是指標   CSize: Cardinal; begin   CSize := MAX_COMPUTERNAME_LENGTH + 1;   GetMem(P, CSIze);//在這裡你給 P 分配了一塊記憶體。   P := ‘4321‘; //這裡你將 P 指向另一處含有常量 ‘4321‘ 的記憶體。此時先前給 P 分配的記憶體                  //已經成了“孤島”，就是通常所說的“記憶體流失”。   ShowMessage(P);   FreeMem(P); //常量 ‘4321‘ 的記憶體是由系統自動管理的，不允許人工釋放。 end;    //下面代碼正常： var   P: Pchar; //P 是指標   CSize: Cardinal; begin   CSize := MAX_COMPUTERNAME_LENGTH + 1;   GetMem(P, CSIze);//在這裡你給 P 分配了一塊記憶體。   strcopy(P,‘4321‘); //將常量 ‘4321‘ 複製到先前給 P 分配的記憶體裡。   ShowMessage(P);   FreeMem(P); //釋放給 P 分配的記憶體。 end;

delphi pchar 指標錯誤