文字游戏

Question

const
    s1 = 1;
    s2 = 2;var
   str:string;
begin
   str := 's1';
   showmessage(inttostr(*));
问： * 部分该如何取为 const 定义的 1 ？

Answer 1

这样不行吗
showmessage(inttostr(s1));

Answer 2

我没说清楚，不好意思。。
我的本意是：str 是要变动的取 s1，s2这样的值的，所以 * 部分要对  str 操作。。

Answer 3

const
    s1 = '1';
    s2 = '2';

Answer 4

duck04551 正解！  下面进入终极难度,中间增加一个变量环节。。 const
    s8F00000E = '1';
    s8F00000F = '2';
var
   str:string;
   sss:longword;
begin
   sss := $8F00000E;
   str := 's'+inttohex(sss,8);
   showmessage(inttostr(*));

Answer 5

高手 show 一下 ！ 

Answer 6

不知道是不是你要的var
  s1, s2: Integer;
  ps: PInt;
begin
  s1 := 1;
  s2 := 2;
  ps := @s1;
  ShowMessage(IntToStr(ps^));
  ps := @s2;
  ShowMessage(IntToStr(ps^));
end;