From a414c5e9265a6a13c5a6345b1dca651df12fd943 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Tue, 5 Sep 2023 10:07:58 +0800
Subject: [PATCH] Update utslmemo.tsf
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

修正中文分隔符问题
---
 funcext/tvclib/utslmemo.tsf | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/funcext/tvclib/utslmemo.tsf b/funcext/tvclib/utslmemo.tsf
index b0768d7..b231565 100644
--- a/funcext/tvclib/utslmemo.tsf
+++ b/funcext/tvclib/utslmemo.tsf
@@ -3051,16 +3051,7 @@ type TSynHighLighter = class(TComponent) //
                 ctk := s[idx:(idx+1)];
                 idx++;
                 SetTToken(tks,ctk,idx);             
-            end             
-            {else 
-            if idx<len and( ord(vi)=0xa3 or ord(vi)=0xa1) then 
-            begin
-                SetTToken(tks,ctk,idx-1); 
-                ctk := s[idx:(idx+1)];
-                idx++;
-                SetTToken(tks,ctk,idx);                 
-            end }
-            else 
+            end else 
             begin
                 ctk+=vi;
             end
@@ -4315,14 +4306,14 @@ begin
     begin 
         if not(idx<=len) then  return 0; 
         if idx<2 then return 0;
+        if ByteType(s,idx)<>2 then return 0;
         c1 := getchar(s,idx-1);
-        if not(c1 .& 0xa0) then return 0; 
         c2 := getchar(s,idx);
     end else //ÕýÐò
     begin 
         if not(idx<len ) then return 0;   
+        if ByteType(s,idx)<>1 then return 0;
         c1 := getchar(s,idx);
-        if not(c1 .& 0xa0) then return 0;    
         c2 := getchar(s,idx+1);    
     end 
     symv := static array(161,162,163,161,163,164,163,168,163,169,161,164,161,190,161,191,163,186,161,176,161,177,161,174,163,187,161,163,163,172);