+ RegisterClassAlias implemenentation from Stefan van den Berg

git-svn-id: trunk@1449 -

rtl/objpas/classes/cregist.inc

@@ -40,6 +40,16 @@ begin
 end;
 
 
+procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);
+  var
+    I : integer;
+  begin
+    i := ClassAliasList.IndexOf(Alias);
+    if I = -1 then
+      ClassAliasList.AddObject( Alias, TObject(AClass) );
+  end;
+
+
 procedure RegisterClasses(AClasses: array of TPersistentClass);
 var
 I : Integer;
@@ -49,12 +59,6 @@ for I := low(aClasses) to high(aClasses) do
 end;
 
 
-procedure RegisterClassAlias(AClass: TPersistentClass; const Alias: string);
-
-begin
-end;
-
-
 procedure UnRegisterClass(AClass: TPersistentClass);
 
 begin