Chinaunix首页 | 论坛 | 博客

gliethttpgliethttp.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

gliethttp

  • 博客访问： 15482375
  • 博文数量： 2005
  • 博客积分： 11986
  • 博客等级： 上将
  • 技术积分： 22535
  • 用 户 组： 普通用户
  • 注册时间： 2007-05-17 13:56
文章分类

全部博文（2005）

文章存档

2014年（2）

2013年（2）

2012年（16）

2011年（66）

2010年（368）

2009年（743）

2008年（491）

2007年（317）

我的朋友
最近访客
推荐博文
枚举类型和integer整型之间的互换

分类：

2010-01-26 22:20:56

type TB2TSize = ( _5, _6, _7, _8 );
procedure TForm1.Button4Click(Sender: TObject);
var b2t:TB2TSize;
begin
  ShowMessage(IntToStr(ord(_7)));
  b2t:=TB2TSize(1);
  ShowMessage(IntToStr(ord(b2t)));
end;
阅读(1673) | 评论(0) | 转发(0) |
0

上一篇：利用Delphi监视注册表的变化

下一篇：让ComboBox只允许输入数字和回车键以及delphi key值表

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6