摘要:
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 阅读全文