1,183
社区成员
发帖
与我相关
我的任务
分享
function StrPas(const Str: PAnsiChar): AnsiString;
begin
Result := Str;
end;
var pc :PChar;
str :string;
begin
pc := 'AAA';
Memo1.Lines.Add('pc : '+inttostr(integer(@pc[0]))+' , '+pc);
str := pc;
Memo1.Lines.Add('str : '+inttostr(integer(@str[1]))+' , '+str);
str := StrPas(pc);
Memo1.Lines.Add('str : '+inttostr(integer(@str[1]))+' , '+str);
end;
输出:
pc : 4623508 , AAA
str : 14305844 , AAA
str : 14321380 , AAA
看到 StrPas 应该是 重新分配地址的,应该是 靠谱的吧~~