请教：枚举类型与数字能否互相转换？

2012-09-03 04:38:09 566 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

向量数据库：PGVector PGVector 是一个基于 PostgreSQL 的扩展插件，为用户提供了一套强大的向量存储和查询的功能阅读详情

TCommandType = (ctEmptyCommand,ctAdd,ctModify);
能否根据枚举类型的值得到数字，比如如果为ctAdd，则返回一个数字1（也可能是2），
如果数字1，得到的枚举类型为ctAdd
请问大家有什么方法可以做到吗？

...全文

CXL协议-第三章 CXL事务层 CXL.io为I/O设备提供了一个非一致的负载/存储接口。图3-1显示了Flex总线分层层次结构中的位置。事务类型、事务分组格式、基于信用的流量控制、虚拟通道管理和事务排序规则遵循PCIe*定义，详情请参考PCIe基础规范的“事务层规范”章节。本章重点介绍了用于CXL.io的著名的PCIe操作模式或特性。阅读详情

learning8899

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

广州佬 2012-09-03

打赏
举报

来个更直接的：



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls ;





type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



type

  TCommandType = (ctEmptyCommand,ctAdd,ctModify);



var

  Form1: TForm1;



implementation



uses TypInfo;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);//函数应用：

var v: TCommandType;

    v_int:integer;

begin

  v:=ctAdd;

  v_int:=2;

  //枚举类型的值得到数字:

  showmessage(inttostr(ord(v)));

  //数字得到枚举类型值的名:

  showmessage( GetEnumName(TypeInfo(TCommandType),v_int));

end;



end.

广州佬 2012-09-03

打赏
举报



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, TypInfo ;





type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



type

  TCommandType = (ctEmptyCommand, ctAdd, ctModify);

  TCommandTypeConvert=class

  public

    class function CommandToString(ACommand: TCommandType): string;

    class function StringToCommand(const AStrCommand: string): TCommandType;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}





class function TCommandTypeConvert.CommandToString(

  ACommand: TCommandType): string;

begin

  Result := GetEnumName(TypeInfo(TCommandType),Ord(ACommand));

end;



class function TCommandTypeConvert.StringToCommand(

  const AStrCommand: string): TCommandType;

begin

  Result := TCommandType(GetEnumValue(TypeInfo(TCommandType), AStrCommand));

end;



procedure TForm1.Button1Click(Sender: TObject);//函数应用：

var v: TCommandType;

begin

  v:=ctAdd;

  //枚举类型的值得到数字:

  showmessage(inttostr(ord(v)));

  //数字得到枚举类型值的名:

  showmessage(TCommandTypeConvert.CommandToString(TCommandType(1)));

end;



end.

日立奔腾浪潮微软松下联想 2012-09-03

打赏
举报

强制类型转换即可。

看那山瞧那水 2012-09-03

打赏
举报

先定义常量
const
Const_enum1 = 1;
Const_enum2 = 2;
........
Const_enum15 = 15;

然后定义枚举：
如果是顺序的:
type
TMyEnum = (me01 = Const_enum1,...,me15);
如果不是顺序的:
TMyEnum = (me01 = Const_enum1,me02=Const_enum2...,me15=Const_enum15);

然后就是Ord(me01)=Const_enum1;TMyEnum(Const_enum1)=me01;

kaikai_kk 2012-09-03

打赏
举报

默认是从0开始的，后面递增，即等价于下面这样：
TCommandType = (ctEmptyCommand=0,ctAdd,ctModify);

也可以改成
TCommandType = (ctEmptyCommand=3,ctAdd,ctModify);

取序数用Ord
第1种Ord(ctAdd)，结果是1
第2种Ord(ctAdd)，结果是4

learning8899 2012-09-03

打赏
举报

谢谢bdmh
var
x:TCommandType
i:integer;
begin
if x = ctEmptyCommand then i := 0
else ....
//如果枚举类型有好几十个，有好办法写出来吗？

if i = 0 then x := ctEmptyCommand
else ....
//几十个if语句，或许可以用case of，但是万一顺序弄错了，后面的全错了，
//有没有类似ord之类的简单方法呢？

end;

bdmh 2012-09-03

打赏
举报

可以，不过要对应，比如 ctEmptyCommand是0，后面加一，如果 ctEmptyCommand=2，那么 ctEmptyCommand对应的是2，后面依次加一

bdmh 2012-09-03

打赏
举报

可以，不过要对应，比如 ctEmptyCommand是0，后面加一，如果 ctEmptyCommand=2，那么 ctEmptyCommand对应的是2，后面依次加一

请教：枚举类型与数字能否互相转换？

相关推荐