如何使用 PPChar - 回复 "DelphiFan" 的问题

weixin_34407348

于 2011-02-11 21:13:00 发布

阅读量75

点赞数

本文通过两个示例展示了Delphi中PPChar类型指针的使用方式及内存管理技巧，包括直接赋值导致的数据关联变化和使用GetMemory分配内存后的独立操作。

问题来源: http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2024604

{引用}
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;