//供参考
procedure TForm1.Button1Click(Sender: TObject);
var
I: PInteger;
S: PString;
begin
GetMem(I, SizeOf(Integer));
I^ := 100 or $F000; //加一点内存空间
ShowMessage(IntToStr(I^ and $0FFF));
S := PString(I);
S^ := '是不是这样';
Caption := S^;
FreeMem(I, SizeOf(string));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: PInteger;
S: PString;
begin
GetMem(I, SizeOf(Integer));
I^ := 100 or $F000; //加一点内存空间
ShowMessage(IntToStr(I^ and $0FFF));
S := PString(I);
S^ := '是不是这样';
Caption := S^;
FreeMem(I, SizeOf(string));
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货