tsl

dll

designer/utslcodeeditor.tsf

@@ -1602,26 +1602,27 @@ type TPageEditerItem=class(TPageItem)
     function SetScriptPath(v);
     begin
         sp := ioFileseparator();
-        ddex := 0;
+        ddex := -1;
+        fscriptname:="";
         if ifstring(v)then
         begin
             for i := length(v) downto 1 do
             begin
                 if v[i]=sp then
                 begin  
-                    Caption := v[i+1:]; 
+                    Caption := v[(i+1):]; 
                     if ddex>i then 
                     begin  
-                        fscriptname := v[(i+1):(ddex-1)];                                       
+                        fscriptname := v[(i+1):(ddex)];                                       
                     end else 
                     begin
-                        fscriptname := v[i+1:];    
+                        fscriptname := v[(i+1):];    
                     end 
                     break;
                 end
-                if v[i]="." then
+                if ddex=-1 and v[i]="." then
                 begin
-                    ddex := i;
+                    ddex := i-1;
                     if lowercase(v[i:])in array(".tsl",".tsf")then FTslSynText := true;
                 end
             end
@@ -6046,7 +6047,8 @@ begin
     if not ifstring(d)then return 0;
     als := "";
     len := length(d);
-    if FileExists(als,fn)and(filesize(als,fn)>len)then
+    sp := ioFileseparator();
+    if FileExists(als,fn) and (filesize(als,fn)>len)then
     begin
         lfn := FileList(als,fn); //修正文件名变小写的问题
         if lfn then
@@ -6054,9 +6056,9 @@ begin
             nfn := lfn[0,"FileName"];
             if nfn then
             begin
-                for i := length(fn)downto 1 do
+                for i := length(fn) downto 1 do
                 begin
-                    if fn[i]="\\" then
+                    if fn[i]=sp then
                     begin
                         fn := fn[1:i]+nfn;
                         break;

whatsnew.txt

@@ -1,6 +1,14 @@
+更新日志--------2024-04-25
+                修订：特殊错误表达式导致的问题（正常使用不受影响）。
+
+更新日志--------2024-04-24
+                修订：tostm函数设定精度对fmarray无效的问题。
+                升级：支持特殊用户使用特殊的函数名以支持开发用于函数编辑器提示的函数。
+
 更新日志--------2024-04-23
                 修订：TS-SQL的JDBC链接模式下在SQLTABLE的使用中比较列名时忽略大小写。
                 修订：解决JDBC链接模式下PG/Gauss下取得的列名都被转换为小写的问题。
+                修订：解决JDBC链接模式下TS-SQL批量插入返回值问题。
                 修订：MakeInstance多线程问题。
                 修订：Linux上threadname设置问题。
                 修订：GetMsgDigest Linux下表现异常问题。
@@ -8,6 +16,7 @@
                 修订：SysExec在某些linux下存在的问题。
                 升级：新增函数：systhreadself，在linux下返回pthread_t类型的pthread_self()，原有systhreadid修正为真实的threadid。
                 升级：新增函数：syssettsllibpath,sysgettsllibpath，允许启动后修改函数的查找路径。
+                  修订：解决TSL对老版本Windows支持的问题。
 
 更新日志--------2024-04-18
                 升级：JDBC从数据库传递巨型结果集给TSL的支持。