如何用函數改變指標對應的值 |
缺席
|
yuhboy
一般會員 發表:12 回覆:27 積分:12 註冊:2004-11-01 發送簡訊給我 |
var
Form1: TForm1; str : string; pstr : Pointer; procedure pointerv(P : pointer); procedure pointerv(P : pointer); var str :string; begin str := String(P^); showmessage(str); //到這裡都ok 可以正常的秀出 This 這個字串 //啦下來的問題就不曉得如何解了 //我想在函數中再把 P 指標所對應的 This 改掉,改成 This a book // end; procedure TForm1.Button1Click(Sender: TObject); begin pointerv(pstr); end; procedure TForm1.FormCreate(Sender: TObject); begin str := 'This'; pstr := @str; end; 不要認為我多此一舉,但我就真的有這個需求 因為要和 Dll 溝通,共用一個變數 用 Pointer 是我查到可以處堙的方式 不然有大大可以提供我更聰明的方法嗎 |
Coffee
版主 發表:31 回覆:878 積分:561 註冊:2006-11-15 發送簡訊給我 |
看過你先前發表的文章,希望你可以用較和緩的口氣,
雖然你只是想避免掉那些你已經測試過的狀況。 再者,我想,只要有提供答案的人,雖然可能不見得合你意, 但畢竟作為一個問題的結束,除非沒有人可以提供你解答,不然我想任何的參考都是有價值存在的。 而有些問題,我有點不懂是回文者無法回答你問題,還是你自行找到比回文者更好的答案,也希望你分享。
------
不論是否我發的文,在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處,以及讓答案可以被重複的使用,希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法,謝謝大家! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |