2012年8月15日
delphi 枚举类型与字符串的转换
摘要： usesClasses,TypInfo;typeTCommandType = (ctEmptyCommand,ctAdd,ctModify);TCommandTypeConvert=classpublicclass function CommandToString(ACommand: TCommandType): string;class function StringToCommand(const AStrCommand: string): TCommandType;end;implementationclass function TCommandTypeConvert.CommandToS 阅读全文
posted @ 2012-08-15 10:31 九月的海 阅读(1384) 评论(0) 推荐(0)