From e72ecfeab2e41a9f16b72ab9b01533d5f00c7864 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Fri, 9 Dec 2022 16:09:18 +0800
Subject: [PATCH] Update utslvclauxiliary.tsf
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

避免length出错
---
 funcext/tvclib/utslvclauxiliary.tsf | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/funcext/tvclib/utslvclauxiliary.tsf b/funcext/tvclib/utslvclauxiliary.tsf
index 85eb2dc..8897a0a 100644
--- a/funcext/tvclib/utslvclauxiliary.tsf
+++ b/funcext/tvclib/utslvclauxiliary.tsf
@@ -886,14 +886,14 @@ type tnumindexarray = Class() //ջģ
         @explan(˵��) ������ݳ��� %%
         @return(integer) ���� %%
         **}
-        return length(FData);
+        return ::length(FData);
     end
     function Push({value1,value2,....});
     begin
         {**
         @explan(˵��) ��ĩβ׷��Ԫ��,������������ %%
         **}
-        r := length(FData);
+        r := ::length(FData);
         r1 := r;
         for i := 0 to ParamCount-1 do
         begin
@@ -910,7 +910,7 @@ type tnumindexarray = Class() //ջģ
         **}
         if FData then
         begin
-            id := length(FData)-1;
+            id := ::length(FData)-1;
             r := FData[id];
             deleteindex(FData,id);
             LengthChanged(-1);
@@ -928,7 +928,7 @@ type tnumindexarray = Class() //ջģ
     end
     function LastIndexOf(v);
     begin
-        for i := length(FData)-1 downto 0 do
+        for i := ::length(FData)-1 downto 0 do
         begin
             if v=FData[i]then return i;
         end
@@ -940,7 +940,7 @@ type tnumindexarray = Class() //ջģ
     end
     function SetValueByIndex(idx,v);virtual;
     begin
-        len := length(FData);
+        len := ::length(FData);
         if idx<0 then return nil;
         if idx <= len then
         begin
@@ -963,7 +963,7 @@ type tnumindexarray = Class() //ջģ
         sl := p[1];
         sl := ifnil(sl)?inf:sl;
         sl := (sl>=0)?sl:0;
-        len := length(FData);
+        len := ::length(FData);
         st := st<0?0:st;
         st := st >= len?(len):st;
         et := st+sl;
@@ -978,7 +978,7 @@ type tnumindexarray = Class() //ջģ
         r1 := FData[0:st-1];
         r2 := FData[et:len-1];
         FData := r1 union p[2:] union r2;
-        if len <> length(FData)then LengthChanged(length(FData)-len);
+        if len <> ::length(FData)then LengthChanged(::length(FData)-len);
         return r;
     end
     function shift();
@@ -987,7 +987,7 @@ type tnumindexarray = Class() //ջģ
         @explan(˵��) ����ͷ��Ԫ�� %%
         **}
         r := nil;
-        len := length(FData);
+        len := ::length(FData);
         if len>0 then
         begin
             deleteindex(FData,0);
@@ -1006,7 +1006,7 @@ type tnumindexarray = Class() //ջģ
             FData := p union FData;
             LengthChanged(1);
         end
-        return length(FData);
+        return ::length(FData);
     end
     function swap(i,j);
     begin
@@ -1014,7 +1014,7 @@ type tnumindexarray = Class() //ջģ
         @explan(˵��) �����±��е�ֵ %%
         **}
         if i=j then return false;
-        len := length(FData);
+        len := ::length(FData);
         if i >= 0 and i<len and j >= 0 and j<len then
         begin
             t := FData[i];