diff --git a/funcext/tvclib/uvcpropertytypespersistence.tsf b/funcext/tvclib/uvcpropertytypespersistence.tsf
index 96e37f2..f290c70 100644
--- a/funcext/tvclib/uvcpropertytypespersistence.tsf
+++ b/funcext/tvclib/uvcpropertytypespersistence.tsf
@@ -532,7 +532,7 @@ type TTmfParser = class(TTmfParserbase)
         if ifstring(v)and(not v)then return tostn("");
         if ifstring(v)then
         begin
-            if v in array("item","end","object")then return tostn(v);
+            if v in array({"item",}"end","object")then return tostn(v);
             if new TCharDiscrimi().IsVariableName(v)then
             begin
                 return v;
@@ -691,8 +691,8 @@ type TTmfParser = class(TTmfParserbase)
         while whileok() do
         begin
             ctoken(tv,tt);
-            if tv="item" and(tt <> TT_STR)then return samplevalue(array("value":getabitem(tv),"type":TT_ITEM));
-            else if tv="<" and(tt <> TT_STR)then
+            {if tv="item" and(tt <> TT_STR)then return samplevalue(array("value":getabitem(tv),"type":TT_ITEM));
+            else }if tv="<" and(tt <> TT_STR)then
             begin
                 v := getabitem(tv,fff);
                 lx := ffff?TT_COLL:TT_ITEM;
@@ -749,11 +749,11 @@ type TTmfParser = class(TTmfParserbase)
     begin
         ctoken(tv,tt);
         lx := tt;
-        if tv="item" and(tt <> TT_STR)then
+        {if tv="item" and(tt <> TT_STR)then
         begin
             lx := TT_ITEM;
             val := getabitem();
-        end else
+        end else}
         if tv="[" and(tt <> TT_STR)then
         begin
             lx := TT_SET;
@@ -853,7 +853,7 @@ type TTmfParser = class(TTmfParserbase)
         begin
             ctoken(tv,tt);
             if tv="]" and tt <> TT_STR then return r;
-            if tv="item" and tt <> TT_STR then r[rl++]:= array("value":getabitem(tv),"type":TT_ITEM);
+            //if tv="item" and tt <> TT_STR then r[rl++]:= array("value":getabitem(tv),"type":TT_ITEM);
             else if tv="<" and tt <> TT_STR then
             begin
                 v := getabitem(tv,fff);
@@ -867,7 +867,7 @@ type TTmfParser = class(TTmfParserbase)
     function getabitem(tp,ifitem);
     begin
         if not ifstring(tp)then endtp := "end";
-        else if tp="item" then endtp := "end";
+        //else if tp="item" then endtp := "end";
         else if tp="<" then endtp := ">";
         else PError("dict错误",1);
         r := array();
@@ -886,12 +886,12 @@ type TTmfParser = class(TTmfParserbase)
                 if ifnil(val)or ifnil(lx)then PError("item无值",1);
                 r[rl++]:= array("name":p,"value":val,"type":lx);
             end else
-            if p="item" and ptt <> TT_STR and(length(r)<1)then
+            {if p="item" and ptt <> TT_STR and(length(r)<1)then
             begin
                 ifitem := true;
                 btoken(2);
                 return getab();
-            end else
+            end else}
             PError("item没有=",1);
         end
     end
@@ -909,10 +909,10 @@ type TTmfParser = class(TTmfParserbase)
             begin
                 return r;
             end else
-            if tv="item" and tt <> TT_STR then
+            {if tv="item" and tt <> TT_STR then
             begin
                 r[rl++]:= getabitem();
-            end else
+            end else}
             begin
                 return PError("<>内容错误",1);
             end
@@ -937,8 +937,8 @@ type TTmfParser = class(TTmfParserbase)
             begin
                 return r;
             end else
-            if tv="item" and tt <> TT_STR then r[rl++]:= array("value":getabitem(tv),"type":TT_ITEM);
-            else if tv="<" and tt <> TT_STR then
+            {if tv="item" and tt <> TT_STR then r[rl++]:= array("value":getabitem(tv),"type":TT_ITEM);
+            else }if tv="<" and tt <> TT_STR then
             begin
                 v := getabitem(tv,fff);
                 lx := fff?TT_COLL:TT_ITEM;