diff --git a/TSLInterp.dll b/TSLInterp.dll index 99f8008..52c31f5 100644 Binary files a/TSLInterp.dll and b/TSLInterp.dll differ diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf index d33a391..a866a46 100644 --- a/designer/utslcodeeditor.tsf +++ b/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; diff --git a/tsjni.dll b/tsjni.dll index 5cbefde..59eef1a 100644 Binary files a/tsjni.dll and b/tsjni.dll differ diff --git a/tsleditor.exe b/tsleditor.exe index c4ed928..b3d8218 100644 Binary files a/tsleditor.exe and b/tsleditor.exe differ diff --git a/tslkrnl.dll b/tslkrnl.dll index 0a658fb..489db3f 100644 Binary files a/tslkrnl.dll and b/tslkrnl.dll differ diff --git a/whatsnew.txt b/whatsnew.txt index 0a7ebd7..f4cb61d 100644 --- a/whatsnew.txt +++ b/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的支持。