关于delphi的一个问题。坐等回复。急急急。

Question

大神帮我看看。这出错的原因是什么。怎么改。
procedure TForm1.Button1Click(Sender: TObject);
var
pp1: PPChar;
begin
pp1^ := '1234';
ShowMessage(pp1^); //万一的 Delphi 博客
end;帮帮忙，，很急啊

Answer 1

pp1: PPChar;
改为：
pp1: PChar;

Answer 2

那我要是用PPchar 的话。怎么给他赋一个string的值。然后把这个值显示出来。

Answer 3

哦是指向字符串的指针。是该ppchar（有这个类型吗，没用过）
不过，这样写是比较危险，因为字符串的内部机制，不同版本可能会变的具体那一行报什么错？

Answer 4

procedure TForm1.btn1Click(Sender: TObject);
var
  pp1: PPChar;
  p1: PChar;
begin
  p1 := GetMemory(4);
  StrCopy(p1, '1234');
  pp1 := @p1;
  ShowMessage(pp1^);
end;

Answer 5

如果现在PPchar里面已经有值了。我怎么把里面的值显示出来。。

Answer 6

直接用ShowMessage(pp1^)就可以了是吧？