有什么办法可以根据变量名的字符串获取变量值么

 【吐槽】[厦门]绝情(384773)  23:18:02
第二层开始的壳应该就没有混淆的功能了吧？最多就是压缩。
【冒泡】[广东]飞(1025520930)  23:18:32
有什么办法可以根据变量名的字符串获取变量值么
【吐槽】[厦门]绝情(384773)  23:20:10
。。。。。
【活跃】[苏]松鼠的松(4752017)  23:22:32
压到hash表里
【吐槽】[厦门]绝情(384773)  23:23:13
这句话就没搞懂
【活跃】[苏]松鼠的松(4752017)  23:23:39
hash表不就行了么..
【话唠】[珠海]田园(117289747)  23:23:50
type 
  TValueRec = record
    Name: string;
    Value: variant;
  end;
  PValueRec = ^TValueRec;

var List: TList;

procedure AddValue(name: string; value: variant);
var
  p: pvalueRec;
begin
  checkNameExists( name);
  new(p);
  p^.name := name;
  p^.value := value;
end;
  
procedure CheckNameExists(name: string);
begin
  if list.count > 0 then
    for i := 0 to list.count - 1 do
      if pValueRec(list[i]).name = name then
        raise exception.create('value exists');
end;
【活跃】[苏]松鼠的松(4752017)  23:23:51
高版本用字典容器
【冒泡】[广东]飞(1025520930)  23:23:54
比如a:=1;
b:=2;
x
然后根据‘a’'b'获取对应的值
【吐槽】[厦门]绝情(384773)  23:25:10
嗯，用dictionary
【冒泡】[广东]飞(1025520930)  23:25:26
xe2支持么
【活跃】[苏]松鼠的松(4752017)  23:25:34
有
【冒泡】[广东]飞(1025520930)  23:25:43
nice
我试试

【话唠】[珠海]田园(117289747)  23:25:53
function getValue(name: string; var v: variant): boolean;
begin
  result := false;
  if list.count > 0 then
    for x := 0 to list.count - 1 do
      if pValueRec(list[i]).name = name then
      begin
        v := pValueRec(list[i]).Value;
        result := true;
        break;
      end;
end;
【冒泡】[广东]飞(1025520930)  23:26:31
@[珠海]田园 这是设置成记录型》
？

【话唠】[珠海]田园(117289747)  23:27:32
name 存 变量名称