免费小工具

uses
TypInfo;

type
Language = (Delphi,Delphi_Prism,CBuilder);

var
StrLanguage : String;
begin
StrLanguage := GetEnumName(TypeInfo(Language),integer(Delphi)) ;
end;

uses
TypInfo;

type
Language = (Delphi,Delphi_Prism,CBuilder);

var
aLanguage : Language;
begin
aLanguage := Language(GetEnumValue(TypeInfo(Language),'CBuilder')) ;
end;