界面库

细节优化

funcext/tvclib/tcomponent.tsf

@@ -150,8 +150,9 @@ uses utslvclauxiliary,UVCPropertyTypesPersistence,utslvclbase;
     end;
     procedure RemoveNotification(AComponent:TComponent);
     begin
-        FFreeNotifies.Remove(AComponent);
+        r := FFreeNotifies.Remove(AComponent);
         if FFreeNotifies.count()<1 then includestate(FComponentState,csFreeNotification);
+        return r;
     end
 #!end  
     protected

funcext/tvclib/utslvclauxiliary.tsf

@@ -376,8 +376,7 @@ type tarray1dlk=class //
         @explan(说明) 删除 %%
         @param(i)(integer) id %%
         **}
-        //len := length(_data)-1;
-        if i<0 or i >= _len then return-1;
+        if i<0 or i >= _len then return 0;
         _len -= 1;
         r := deleteindex(_data,i,1);
         dochanged("del");