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

30
tests/testrtti.pp
View File

@ -32,7 +32,7 @@ Type
FExtended : Extended; FExtended : Extended;
FMyEnum : TMyEnum; FMyEnum : TMyEnum;
FAnsiString : AnsiSTring; FAnsiString : AnsiSTring;
FStored : Boolean; FStored : Boolean;
Function GetBoolean : Boolean; Function GetBoolean : Boolean;
Function GetByte : Byte; Function GetByte : Byte;
Function GetChar : Char; Function GetChar : Char;
@ -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;
@ -99,28 +99,28 @@ Type
Property CharMethod : Char Read GetChar Write SetChar; Property CharMethod : Char Read GetChar Write SetChar;
Property WordMethod : Word Read GetWord Write SetWord; Property WordMethod : Word Read GetWord Write SetWord;
Property IntegerMethod : Integer Read GetInteger Write SetInteger; Property IntegerMethod : Integer Read GetInteger Write SetInteger;
Property LongintMethod : Longint Read GetLongint Write SetLongint; Property LongintMethod : Longint Read GetLongint Write SetLongint;
Property CardinalMethod : Cardinal Read GetCardinal Write SetCardinal; Property CardinalMethod : Cardinal Read GetCardinal Write SetCardinal;
Property RealMethod : Real Read GetReal Write SetReal; Property RealMethod : Real Read GetReal Write SetReal;
Property ExtendedMethod : Extended Read GetExtended Write SetExtended; Property ExtendedMethod : Extended Read GetExtended Write SetExtended;
Property AnsiStringMethod : AnsiString Read GetAnsiString Write SetAnsiString; Property AnsiStringMethod : AnsiString Read GetAnsiString Write SetAnsiString;
Property MyEnumMethod : TMyEnum Read GetMyEnum Write SetMyEnum; Property MyEnumMethod : TMyEnum Read GetMyEnum Write SetMyEnum;
Property BooleanVirtualMethod : Boolean Read GetVirtualBoolean Write SetVirtualBoolean; Property BooleanVirtualMethod : Boolean Read GetVirtualBoolean Write SetVirtualBoolean;
Property ByteVirtualMethod : Byte Read GetVirtualByte Write SetVirtualByte; Property ByteVirtualMethod : Byte Read GetVirtualByte Write SetVirtualByte;
Property CharVirtualMethod : Char Read GetVirtualChar Write SetVirtualChar; Property CharVirtualMethod : Char Read GetVirtualChar Write SetVirtualChar;
Property WordVirtualMethod : Word Read GetVirtualWord Write SetVirtualWord; Property WordVirtualMethod : Word Read GetVirtualWord Write SetVirtualWord;
Property IntegerVirtualMethod : Integer Read GetVirtualInteger Write SetVirtualInteger; Property IntegerVirtualMethod : Integer Read GetVirtualInteger Write SetVirtualInteger;
Property LongintVirtualMethod : Longint Read GetVirtualLongint Write SetVirtualLongint; Property LongintVirtualMethod : Longint Read GetVirtualLongint Write SetVirtualLongint;
Property CardinalVirtualMethod : Cardinal Read GetVirtualCardinal Write SetVirtualCardinal; Property CardinalVirtualMethod : Cardinal Read GetVirtualCardinal Write SetVirtualCardinal;
Property RealVirtualMethod : Real Read GetVirtualReal Write SetVirtualReal; Property RealVirtualMethod : Real Read GetVirtualReal Write SetVirtualReal;
Property ExtendedVirtualMethod : Extended Read GetVirtualExtended Write SetVirtualExtended; Property ExtendedVirtualMethod : Extended Read GetVirtualExtended Write SetVirtualExtended;
Property AnsiStringVirtualMethod : AnsiString Read GetVirtualAnsiString Write SetVirtualAnsiString; Property AnsiStringVirtualMethod : AnsiString Read GetVirtualAnsiString Write SetVirtualAnsiString;
Property MyEnumVirtualMethod : TMyEnum Read GetVirtualMyEnum Write SetVirtualMyEnum; Property MyEnumVirtualMethod : TMyEnum Read GetVirtualMyEnum Write SetVirtualMyEnum;
Property StoredIntegerConstFalse : Longint Read FLongint Stored False; Property StoredIntegerConstFalse : Longint Read FLongint Stored False;
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;