变量的引用
以下示例在delphi中是不允许的，但有没有实现类似功能的用法

Val1 := 'abc ' ;
Val2 := Ary[Val1] ;
//则 Val2 = 'abc ' ;



[解决办法]
Ary[Val1] <-- 不是太明白这个写法的含义。
[解决办法]
用TStringList吧!

procedure TForm1.Button1Click(Sender: TObject);
var
S: TStrings;
Val1: String;
begin
S := TStringList.Create;
try
S.Values[ 'abc '] := '12345 ';
S.Values[ 'def '] := '23456 ';
Val1 := 'abc ';
ShowMessage(S.Values[Val1]);
finally
S.Free;
end;

end;