t_id
1096
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565147121 | 954639 | True | False | Success, compilation failed |
Record count: 1
{ %FAIL } program TestDefaultProperty; {$MODE OBJFPC}{$H+} uses SysUtils; type TMyClass = class private function GetItems(Index: integer): integer; public property Items[Index: integer]: integer read GetItems; default; end; function TMyClass.GetItems(Index: integer): integer; begin writeln('Get Index=',Index); Result:=Index; end; var MyClass: TMyClass; i: integer; begin MyClass:=TMyClass.Create; i:=MyClass.Items; writeln('i=',i); MyClass.Free; end.