各位大大： 小弟初用Delphi，有很多地方不太會，想請問，當小弟在下列程式少了 GetMem(CName, CSize); 一行時，執行時並沒有任何錯誤，但當要關閉畫面時，卻出現錯誤訊息， Exception EAcessViolation in Module tmpfrm.exe at 0001B153. 想請問這是什麼原因？ procedure tmpfrm.GetInfor; var CName : PChar; CSize : DWord; begin CSize := 255; GetMem(CName, CSize); if getcomputername(CName, CSize) then label5.Caption := CName else label5.Caption := 'Unkown'; end;

引言: 各位大大： 小弟初用Delphi，有很多地方不太會，想請問，當小弟在下列程式少了 GetMem(CName, CSize); 一行時，執行時並沒有任何錯誤，但當要關閉畫面時，卻出現錯誤訊息， Exception EAcessViolation in Module tmpfrm.exe at 0001B153. 想請問這是什麼原因？ procedure tmpfrm.GetInfor; var CName : PChar; CSize : DWord; begin CSize := 255; GetMem(CName, CSize); if getcomputername(CName, CSize) then label5.Caption := CName else label5.Caption := 'Unkown'; FreeMem(CName); //記得釋放記憶體!! end;

應該不是這兒發生的錯誤吧!? 是不是你在Destroy事件或是關閉的事件中有使用已經釋放掉的物件!? 學而時習之不亦樂乎!

引言: 各位大大： 小弟初用Delphi，有很多地方不太會，想請問，當小弟在下列程式少了 GetMem(CName, CSize); 一行時，執行時並沒有任何錯誤，但當要關閉畫面時，卻出現錯誤訊息， Exception EAcessViolation in Module tmpfrm.exe at 0001B153. 想請問這是什麼原因？ procedure tmpfrm.GetInfor; var CName : PChar; CSize : DWord; begin CSize := 255; GetMem(CName, CSize); if getcomputername(CName, CSize) then label5.Caption := CName else label5.Caption := 'Unkown'; FreeMem(CName,CSize)//加入這行; //Delphi 5,6 不加此行執行不會有錯誤訊息 //可是用Delphi 7 不加此行執行會有錯誤訊息 end;

各位大大，大家誤會了，我不是說FreeMem(CName)那行，我是說少了GetMem(CName, CSize)，不過托大家的福，我知道要FreeMem(Mem)了，感激感激，再請大家幫我解惑一下，謝謝。

引言: 各位大大，大家誤會了，我不是說FreeMem(CName)那行，我是說少了GetMem(CName, CSize)，不過托大家的福，我知道要FreeMem(Mem)了，感激感激，再請大家幫我解惑一下，謝謝。

既然少了GetMem(CName, CSize)這一行!? 那CName是代表什麼意思呢!?...指向一個未知的指標!! 既然都已指向未知指標了，還能發生什麼錯誤?指標是要靠自己維護的.. 另一種宣告 var CName : Array[0..255]of Char; 學而時習之不亦樂乎!

jichang 你好： PChar 是个指向字符串的指针，你在声明后没有分配空间就使用，当然会出错了。内存地址越界。为此，如果你要用PChar必须注意它的地址空间分配问题。 所以你必须使用GetMem(CName, CSize);为CNmae为配一个空间供其使用，不用就会出错，当然最后还得释放其空间。 也即FreeMem(CName); ——行径窄处，留一步与人行—— ===== 为什么，经过多年以后，得失的过程如此冷漠 为什么，经过多年以后，风干的伤口心痛依旧

感激各位的說明，由於分數只能給一人，而deity說明的比較清楚，因此小弟將分數給deity，但仍感激各位，謝謝。