首先引用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;使用上面的方法可以提高程序的可读性
本文介绍了一种通过枚举类型和过程实现代码模块化的案例。该方法通过定义枚举类型TCommandEnum,并利用过程TCommandProcess.ProcessCmd进行命令处理,提高了代码的可读性和维护性。
2951

被折叠的 条评论
为什么被折叠?



