paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 03:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Wrong file copied

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-27 13:21:19 +02:00
parent 6456ced31f
commit 429d04089e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/test/texrtti18.pp
View File

@ -1,10 +1,10 @@
program texrtti17; program texrtti18;
{ Test that array properties do not appear in the list of RTTI properties }
{$mode objfpc} {$mode objfpc}
{ Test that class properties are not returned in RTTI } uses TypInfo, uexrttiutil;
uses typinfo, uexrttiutil;
{$RTTI INHERIT {$RTTI INHERIT
METHODS(DefaultMethodRttiVisibility) METHODS(DefaultMethodRttiVisibility)
@ -14,15 +14,15 @@ uses typinfo, uexrttiutil;
Type Type
T1 = Class(TObject) T1 = Class(TObject)
class function getsomething : integer; static; function getsomething(aIndex : Integer) : TObject;
class property Something : Integer Read GetSomething; property Something[a: Integer] : TObject Read GetSomething;
end; end;
class function T1.getsomething : integer; function T1.getsomething(aIndex : Integer) : TObject;
begin begin
Result:=0; Result:=Nil;
end; end;
var var