关于delphi的一个有关问题。坐等回复。
关于delphi的一个问题。坐等回复。急急急。
大神帮我看看。这出错的原因是什么。怎么改。
procedure TForm1.Button1Click(Sender: TObject);
var
pp1: PPChar;
begin
pp1^ := '1234';
ShowMessage(pp1^); //万一的 Delphi 博客
end;
帮帮忙，，很急啊。。。。。。
------解决方案--------------------
procedure TForm1.btn1Click(Sender: TObject);
var
pp1: PPChar;
p1: PChar;
begin
p1 := GetMemory(4);
StrCopy(p1, '1234');
pp1 := @p1;
ShowMessage(pp1^);
end;
大神帮我看看。这出错的原因是什么。怎么改。
procedure TForm1.Button1Click(Sender: TObject);
var
pp1: PPChar;
begin
pp1^ := '1234';
ShowMessage(pp1^); //万一的 Delphi 博客
end;
帮帮忙，，很急啊。。。。。。
------解决方案--------------------
procedure TForm1.btn1Click(Sender: TObject);
var
pp1: PPChar;
p1: PChar;
begin
p1 := GetMemory(4);
StrCopy(p1, '1234');
pp1 := @p1;
ShowMessage(pp1^);
end;