本文整理自网络,侵删。
{引用}
procedure TForm1.Button1Click(Sender: TObject);
var
pp1,pp2: PPChar;
begin
pp1^ := '万一的 Delphi 博客';
pp2 := pp1;
ShowMessage(pp2^); //万一的 Delphi 博客
pp1^ := 'Delphi 2011';
ShowMessage(pp2^); //Delphi 2011
end;
{复制}
procedure TForm1.Button2Click(Sender: TObject);
var
pp1,pp2: PPChar;
p: PChar;
begin
pp1^ := '万一的 Delphi 博客';
p := GetMemory(ByteLength(pp1^) + SizeOf(Char));
StrCopy(p, pp1^);
pp2 := @p;
ShowMessage(pp2^); //万一的 Delphi 博客
pp1^ := 'Delphi 2011';
ShowMessage(pp2^); //万一的 Delphi 博客
FreeMemory(p);
end;
相关阅读 >>
Delphi关闭程序close,application.terminate与halt区别
Delphi xe 网上获取北京时间android app 启动黑屏优化补丁
Delphi 详解 enumwindows 与 enumwindowsproc
更多相关阅读请进入《Delphi》频道 >>