paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 00:10:19 +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}
{ Test that class properties are not returned in RTTI }
uses typinfo, uexrttiutil;
uses TypInfo, uexrttiutil;
{$RTTI INHERIT
METHODS(DefaultMethodRttiVisibility)
@ -14,15 +14,15 @@ uses typinfo, uexrttiutil;
Type
T1 = Class(TObject)
class function getsomething : integer; static;
class property Something : Integer Read GetSomething;
function getsomething(aIndex : Integer) : TObject;
property Something[a: Integer] : TObject Read GetSomething;
end;
class function T1.getsomething : integer;
function T1.getsomething(aIndex : Integer) : TObject;
begin
Result:=0;
Result:=Nil;
end;
var