Update utslmemo.tsf

加入try
2023-07-28 15:51:34 +08:00 · 2023-07-28 15:51:34 +08:00 · acce2fc884
parent 2a1cab45b9
commit acce2fc884
1 changed files with 5 additions and 1 deletions
--- a/funcext/tvclib/utslmemo.tsf
+++ b/funcext/tvclib/utslmemo.tsf
@ -2365,7 +2365,11 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
                if not s then return "";
                bg := min(bb[1],ee[1]);
                ed := max(bb[1],ee[1]);
-                if bg<ed then return s[bg:(ed-1)];
+                try 
+                if bg<ed then return s[bg:(ed-1)]; //2023078 出错
+                except
+                
+                end
                return "";
                {if ee[1]>bb[1]and ee[1]>1 then 
                try