高级难题！如何将一个常量转换为一个字串？

Question

如果是一个枚举变量，可以使用
uses typinfo;
GetEnumName
如果是一个const常量，我还不知道有没有办法。

Answer 1

这样不行吗？
const mystr='aaaa';
var
  str:string;
begin
  str:=mystr;
end;

Answer 2

写一个函数，根据常量类型的不同调用不同的函数转化。
比如：
1、const con = 1;
   cons := IntToStr(con);
2、const con = '1';
   cons := con;要是在c/c++中就简单多了—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————
　　　　　　　

Answer 3

还是lxpbuaa(桂枝香在故国晚秋) 的比较好，如果有遗漏可以随时加上