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

Added stored specifier for some props

Browse Source
This commit is contained in:
michael 1999-09-08 21:12:23 +00:00
parent 118a99513d
commit 07936d54b8
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/testrtti.pp
View File

@ -32,6 +32,7 @@ Type
FExtended : Extended;
FMyEnum : TMyEnum;
FAnsiString : AnsiSTring;
FStored : Boolean;
Function GetBoolean : Boolean;
Function GetByte : Byte;
Function GetChar : Char;
@ -76,6 +77,8 @@ Type
Procedure SetVirtualExtended ( Value : Extended ); virtual;
Procedure SetVirtualAnsiString ( Value : AnsiString ); virtual;
Procedure SetVirtualMyEnum ( Value : TMyEnum ); virtual;
Function GetStaticStored : Boolean;
Function GetVirtualStored : Boolean;
Public
Constructor Create;
Destructor Destroy;override;
@ -113,6 +116,11 @@ Type
Property ExtendedVirtualMethod : Extended Read GetVirtualExtended Write SetVirtualExtended;
Property AnsiStringVirtualMethod : AnsiString Read GetVirtualAnsiString Write SetVirtualAnsiString;
Property MyEnumVirtualMethod : TMyEnum Read GetVirtualMyEnum Write SetVirtualMyEnum;
Property StoredIntegerConstFalse : Longint Read FLongint Stored False;
Property StoredIntegerConstTrue : Longint Read FLongint Stored True;
Property StoredIntegerField : Longint Read FLongint Stored FStored;
Property StoredIntegerMethod : Longint Read Flongint Stored GetStaticStored;
Property StoredIntegerVirtualMethod : Longint Read Flongint Stored GetStaticStored;
end;
Constructor TMyTestObject.Create;
@ -363,6 +371,18 @@ begin
FMyEnum:=Value;
end;
Function TMyTestObject.GetStaticStored : Boolean;
begin
Result:=False;
end;
Function TMyTestObject.GetVirtualStored : Boolean;
begin
Result:=False;
end;
Procedure DumpMem ( PL : PByte );
Var I,j : longint;