From 5324cd4e1ec07ba15c070e4c24a00ba8d455d6f0 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Wed, 26 Jul 2023 16:04:21 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

修正手误
---
 funcext/tvclib/tslvcl.tsf           | 2 +-
 funcext/tvclib/utslvclauxiliary.tsf | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf
index b14f628..d3cd916 100644
--- a/funcext/tvclib/tslvcl.tsf
+++ b/funcext/tvclib/tslvcl.tsf
@@ -4749,7 +4749,7 @@ type tworkerctl =class(tcomponent) //
     function setOnError(f);
     begin
         FOnError := f;
-        if fworker then fworker.FOnError := f; 
+        if fworker then fworker.OnError := f; 
     end 
     function Setscript(s);
     begin
diff --git a/funcext/tvclib/utslvclauxiliary.tsf b/funcext/tvclib/utslvclauxiliary.tsf
index 76c8a68..9c3e41d 100644
--- a/funcext/tvclib/utslvclauxiliary.tsf
+++ b/funcext/tvclib/utslvclauxiliary.tsf
@@ -1732,16 +1732,18 @@ type TNode = class() //
         return FItems.Count;
     end
 end
-type TTire = class
+type TTire = class()
 {**
     @explan(˵Ã÷) tireÊ÷
 **}
-    type TTireNode = class
+    type TTireNode = class()
+        [weakref] parent;
         FChar;
         FSub;
         FEnd;
         Ficase;
         _tag;
+        _tag2;
         function Create(v);
         begin
             FChar := v;  
@@ -1758,7 +1760,8 @@ type TTire = class
             begin
                 vsub := new  TTireNode(v0);
                 vsub.Ficase := Ficase;
-                FSub[v0] := vsub;   
+                FSub[v0] := vsub;  
+                vsub.Parent := self; 
             end 
             ls := length(s);
             if ls>1 then