【转】Delphi枚举类型与整形的转换示例

摘自：http://hi.baidu.com/lzj1981/blog/item/ae758ead39585c074a36d62c.html

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, TypInfo;

type
TDemoType = (dta, dtb, dtc);

TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
private
    {Private declarations}
    aDemoType: TDemoType;
public
    {Public declarations}
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
aDemoType := TDemoType(StrToInt(Edit1.Text));
ShowMessage(GetEnumName(TypeInfo(TDemoType),Ord(aDemoType)));
end;

end.