易语言怎么让编辑框内容错误进度条不走？

易语言如何判断编辑框内文字是否是

。版本 2 ? 。子程序 判断是否包含汉字, 逻辑型, , 真=包含汉字，假=不包含汉字 。参数 文本, 文本型 。局部变量 现行位置, 整数型 。局部变量 现行字符, 文本型 ? 现行位置 ＝ 1 文本 ＝ 到半角 (文本) 。 判断循环首 (现行位置 ≤ 取文本长度 (文本)) ? ? 现行字符 ＝ 取文本中间 (文本, 现行位置, 1) ? ? 。如果真 (取代码 (现行字符, ) ＜ 0) ? ? ? ? 返回 (真) ? ? 。 如果真结束 ? ? 现行位置 ＝ 现行位置 ＋ 1 。判断循环尾 () 返回 (假)。全部

  。版本 2 ? 。子程序 判断是否包含汉字, 逻辑型, , 真=包含汉字，假=不包含汉字 。参数 文本, 文本型 。局部变量 现行位置, 整数型 。局部变量 现行字符, 文本型 ? 现行位置 ＝ 1 文本 ＝ 到半角 (文本) 。
  判断循环首 (现行位置 ≤ 取文本长度 (文本)) ? ? 现行字符 ＝ 取文本中间 (文本, 现行位置, 1) ? ? 。如果真 (取代码 (现行字符, ) ＜ 0) ? ? ? ? 返回 (真) ? ? 。
  如果真结束 ? ? 现行位置 ＝ 现行位置 ＋ 1 。判断循环尾 () 返回 (假)。收起