* Add StoredAttribute class, bug ID #37602

git-svn-id: trunk@46506 -

rtl/inc/objpas.inc

@@ -1172,6 +1172,28 @@
       inherited;
     end;
 
+{****************************************************************************
+                               TCustomStoredAttribute
+****************************************************************************}
+
+
+    constructor StoredAttribute.Create;
+    begin
+    end;
+
+
+    constructor  StoredAttribute.Create(Const aFlag : Boolean);
+    begin
+      FFlag:=aFlag;
+    end;
+
+
+
+    constructor StoredAttribute.Create(Const aName : string);
+    begin
+      FName:=aName;
+    end;
+
 
 {****************************************************************************
                              Exception Support

rtl/inc/objpash.inc

@@ -444,6 +444,19 @@
        UnsafeAttribute = class(TCustomAttribute);
        RefAttribute = class(TCustomAttribute);
        VolatileAttribute = class(TCustomAttribute);
+       
+       StoredAttribute = Class(TCustomAttribute)
+       Private
+          FFlag : Boolean;
+          FName : String;
+       Public
+         Constructor Create; 
+         Constructor Create(Const aFlag : Boolean); 
+         Constructor Create(Const aName : String); 
+         Property Flag : Boolean Read FFlag;
+         Property Name : String Read FName; 
+       end;
+       
   
     Const
        ExceptProc : TExceptProc = Nil;