delphi 枚举类型和integer整型之间的互换

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi窗体置顶

Delphi post数据到网页

Delphi 下载并显示网上的图片

Delphi listview高速添加数据

Delphi 利用vclzip实现分卷压缩

Delphi 突破主动防御

Delphi 开发安卓时判断进入非活动

Delphi unigui中如何监听session的开始与结束

Delphi xe5发送短信以及读取短信代码

Delphi的dll中获取文件路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 枚举类型和integer整型之间的互换