瀏覽代碼

标段名,特殊汉字问题

MaiXinRong 5 年之前
父節點
當前提交
106fc067c7
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      Forms/NewProjectFrm.pas

+ 1 - 1
Forms/NewProjectFrm.pas

@@ -74,7 +74,7 @@ end;
 
 function TNewProjectForm.CheckLegalChar: Boolean;
 begin
-  Result := CheckFileNameLegal(GetValue);
+  Result := CheckFileNameLegal(AnsiToUtf8(GetValue));
   if not Result then
     labTip.Caption := '不能包含特殊字符[/ \ : * ? " < > |],请重新输入!';
 end;