用枚举方法 在case 语句中使用字符

首先引用TypInfo单元

type

  TCommandEnum = (_AA, _BB, _CC, _DD, _EE, _FF, _GG, _HH);

procedure TCommandProcess.ProcessCmd(chn: Byte; cmd, s: string);
var
  CMDEnum:TcommandEnum ;
begin
  CMDEnum :=TCommandEnum(GetEnumvalue(TypeInfo(TCommandEnum), '_'+cmd));
  case CMDEnum of
    _AA: ProcessAA(chn, s);
    _BB: ProcessBB(chn, s);
    _CC: ProcessCC(chn, s);
    _DD: ProcessDD(chn, s);
    _EE: ProcessEE(chn, s);
    _FF: ProcessFF(chn, s);
    _GG: ProcessGG(chn, s);
    _HH: ProcessHH(chn, s);
  end;
end;

使用上面的方法可以提高程序的可读性