paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:33:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* some small improvements for stored properties test

Browse Source
This commit is contained in:
florian 1999-09-10 20:56:08 +00:00
parent a9d8bfa1f7
commit df2b62c551
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/testrtti.pp
View File

@ -78,7 +78,7 @@ Type
Procedure SetVirtualAnsiString ( Value : AnsiString ); virtual; Procedure SetVirtualAnsiString ( Value : AnsiString ); virtual;
Procedure SetVirtualMyEnum ( Value : TMyEnum ); virtual; Procedure SetVirtualMyEnum ( Value : TMyEnum ); virtual;
Function GetStaticStored : Boolean; Function GetStaticStored : Boolean;
Function GetVirtualStored : Boolean; Function GetVirtualStored : Boolean;virtual;
Public Public
Constructor Create; Constructor Create;
Destructor Destroy;override; Destructor Destroy;override;
@ -120,7 +120,7 @@ Type
Property StoredIntegerConstTrue : Longint Read FLongint Stored True; Property StoredIntegerConstTrue : Longint Read FLongint Stored True;
Property StoredIntegerField : Longint Read FLongint Stored FStored; Property StoredIntegerField : Longint Read FLongint Stored FStored;
Property StoredIntegerMethod : Longint Read Flongint Stored GetStaticStored; Property StoredIntegerMethod : Longint Read Flongint Stored GetStaticStored;
Property StoredIntegerVirtualMethod : Longint Read Flongint Stored GetStaticStored; Property StoredIntegerVirtualMethod : Longint Read Flongint Stored GetVirtualStored;
end; end;
Constructor TMyTestObject.Create; Constructor TMyTestObject.Create;
@ -453,7 +453,7 @@ begin
Writeln (' Storedproc available'); Writeln (' Storedproc available');
Writeln (' Get property ',proctype(Propprocs)); Writeln (' Get property ',proctype(Propprocs));
Writeln (' Set Property ',proctype(propprocs shr 2)); Writeln (' Set Property ',proctype(propprocs shr 2));
Writeln (' Stored Property ',proctype(propprocs shr 2)); Writeln (' Stored Property ',proctype(propprocs shr 4));
Writeln (' Default : ',Default,' Index : ',Index); Writeln (' Default : ',Default,' Index : ',Index);
Writeln (' NameIndex : ',NameIndex); Writeln (' NameIndex : ',NameIndex);
end; end;