From 71dac7c02f69980c935d25aebeb5d61ee7eac5af Mon Sep 17 00:00:00 2001 From: florian Date: Mon, 17 Oct 2005 20:56:39 +0000 Subject: [PATCH] + RegisterClassAlias implemenentation from Stefan van den Berg git-svn-id: trunk@1449 - --- rtl/objpas/classes/cregist.inc | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/rtl/objpas/classes/cregist.inc b/rtl/objpas/classes/cregist.inc index d4da504ae8..506eb26c84 100644 --- a/rtl/objpas/classes/cregist.inc +++ b/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