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 是我查到可以處堙的方式
不然有大大可以提供我更聰明的方法嗎

看過你先前發表的文章，希望你可以用較和緩的口氣，
雖然你只是想避免掉那些你已經測試過的狀況。
再者，我想，只要有提供答案的人，雖然可能不見得合你意，
但畢竟作為一個問題的結束，除非沒有人可以提供你解答，不然我想任何的參考都是有價值存在的。
而有些問題，我有點不懂是回文者無法回答你問題，還是你自行找到比回文者更好的答案，也希望你分享。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！