Browse Source

* Add RegisterClasses

michael 4 years ago
parent
commit
85abc5e040
1 changed files with 10 additions and 0 deletions
  1. 10 0
      packages/rtl/classes.pas

+ 10 - 0
packages/rtl/classes.pas

@@ -1403,6 +1403,7 @@ type
 
 
 procedure RegisterInitComponentHandler(ComponentClass: TComponentClass;   Handler: TInitComponentHandler);
 procedure RegisterInitComponentHandler(ComponentClass: TComponentClass;   Handler: TInitComponentHandler);
 Procedure RegisterClass(AClass : TPersistentClass);
 Procedure RegisterClass(AClass : TPersistentClass);
+Procedure RegisterClasses(AClasses : TArray<TPersistentClass>);
 Function GetClass(AClassName : string) : TPersistentClass;
 Function GetClass(AClassName : string) : TPersistentClass;
 procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
 procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
 procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
 procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
@@ -9318,6 +9319,15 @@ begin
   ClassList[AClass.ClassName]:=AClass;
   ClassList[AClass.ClassName]:=AClass;
 end;
 end;
 
 
+Procedure RegisterClasses(AClasses : TArray<TPersistentClass>);
+var
+  AClass : TPersistentClass;
+
+begin
+  for AClass in AClasses do
+    RegisterClass(AClass);
+end;
+
 Function GetClass(AClassName : string) : TPersistentClass;
 Function GetClass(AClassName : string) : TPersistentClass;
 
 
 begin
 begin