2011年10月24日

使用GetEnumName和GetEnumValue获取枚举类型的名称和数值

摘要: 在窗体上添加两个按钮,简单代码如下。GetEnumValue()超范围时返回-1.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TypInfo;type TTestEnum=(teOne,teTwo,teThree); TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); proce 阅读全文

posted @ 2011-10-24 08:18 王海波 阅读(1098) 评论(0) 推荐(0)

导航