16,748
社区成员
发帖
与我相关
我的任务
分享
const
s1 = 1;
s2 = 2;
var
str:string;
begin
str := 's1';
showmessage(inttostr(*));
var
s1, s2: Integer;
ps: PInt;
begin
s1 := 1;
s2 := 2;
ps := @s1;
ShowMessage(IntToStr(ps^));
ps := @s2;
ShowMessage(IntToStr(ps^));
end;
const
s8F00000E = '1';
s8F00000F = '2';
var
str:string;
sss:longword;
begin
sss := $8F00000E;
str := 's'+inttohex(sss,8);
showmessage(inttostr(*));