编辑器

修正赋值运算符问题

designer/utslcodeeditor.tsf

@@ -1792,9 +1792,12 @@ type TEditer=class(TCustomcontrol) //
             if not it then return ;
             if it.fisnewfile then  //单独处理新建关闭
             begin 
-                f := it.OrigScriptPath;
-                DeletePageItem(it);
-                if fileexists("",f) then filedelete("",f);                    
+                if MessageboxA("新建文件还未保存!关闭将删除","提示",1,self)= IDOK then 
+                begin
+                    f := it.OrigScriptPath;
+                    DeletePageItem(it);
+                    if fileexists("",f) then filedelete("",f); 
+                end                    
             
             end else 
             begin 

designer/utslcodeformat.tsf

@@ -290,7 +290,7 @@ type TFormatParser = class
             FCWordCount :=0;  
             FLWordLength :=0;      
         end else 
-        if (tk.FType .& TK_SYN_S) and (tk.FStr="*") then  //修正(**) 问题
+        if (tk.FType .& TK_SYN_S){ and (tk.FStr="*")} then  //修正(**) 问题 20231127修正
         begin
             FFormatStr+= " "+tk.FStr+" ";    
         end else