delphi里如何得到一个变量的地址值

[chinaren12345]

我想把变量的地址值显示出来，如何做到？

[lihuasoft]

变量名就是变量的地址
var str:string;
begin
str:='abcdefg';
showmessage(InttoStr(integer(Str));
end;

[do2008]

楼上似乎不对

var
str:string;
i:integer;
begin
str:='abcdefg';
i:=1;
showmessage(InttoStr(integer(Str)));
showmessage(InttoStr(integer(i))); //这样是1，呵可呵

//应该加一个取址运算符@
showmessage(InttoStr(integer(@Str)));
showmessage(InttoStr(integer(@i)));
end;

[ttoth12]

收藏，学习！！！