delphi 如何使用 PPChar

本文整理自网络，侵删。

 {引用}
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 极速字符串替换函数

Delphi vcl图像的二值化

rad studio Delphi创建安卓服务creating android services

Delphi 如何在桌面添加右键菜单

fmsoft_unigui个文件说明

Delphi提取exe,dll文件的icon图标

Delphi firemonkey应用程序取得控制的位置(坐标)的话

Delphi xe6 android 查看电池信息

Delphi 去除 tstringlist 重复项

如何把 Delphi 自带的内存泄露写到日志

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 如何使用 PPChar