本文整理自网络,侵删。
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 简化版的inputquery 中文版输入对话框
Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4
Delphi 中 findwindow 和 findwindowex 的语法和用法
Delphi thttpclient 时获取跳转后的 url
Delphi timagelist 中使用 透明 png 图标
更多相关阅读请进入《Delphi》频道 >>