本文整理自网络,侵删。
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 win32_networkadapter 网卡 参数说明
Delphi xe datasnap服务器获取客户端ip地址
更多相关阅读请进入《Delphi》频道 >>