转换 Delphi 穷举值为字符串

在运行时将一个穷举类型的元素值转换为字符串：

type
    TProgrammerType = (tpDelphi, tpCS, tpVB);

uses TypInfo;
...

var s: string;
s := GetEnumName(TypeInfo(TProgrammerType), Integer(tpDelphi)) ;
//s = 'tpDelphi'

原文出处：About Delphi Programming
原文地址：Delphi Enum to string