paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add StoredAttribute class, bug ID #37602

Browse Source 
git-svn-id: trunk@46506 -
This commit is contained in:
michael 2020-08-20 12:06:14 +00:00
parent 8bc2326b77
commit 82346563c1
2 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/objpas.inc
View File

@ -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

13
rtl/inc/objpash.inc
View File

@ -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;