Delphi 集合和字符串互转

最新推荐文章于 2024-08-07 19:14:22 发布

dw.z

最新推荐文章于 2024-08-07 19:14:22 发布

阅读量590

点赞数 1

分类专栏： Delphi 文章标签： delphi

本文链接：https://blog.csdn.net/zdwcmy/article/details/106784861

版权

Delphi 专栏收录该内容

30 篇文章 0 订阅

订阅专栏

uses TypInfo;

type
  TCommType = (cEm, cDm, cMd);

  TCommTypeCon = class
  public
    class function CommToStr(nComm: TCommType): string;
    class function StrToComm(const nStrComm: string): TCommType;
  end;

implementation

class function TCommTypeCon.CommToStr(nComm: TCommType): string;
begin
  Result := GetEnumName(TypeInfo(TCommType), Ord(nComm));
end;

class function TCommTypeCon.StrToComm(const nStrComm: string): TCommType;
begin
  Result := TCommType(GetEnumValue(TypeInfo(TCommType), nStrComm));
end;