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

问题来源: 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;

---