t_id
1342
t_adddate
2004/08/28
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-839913931 | 724380 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3241 } { Submitted by "Mattias Gaertner" on 2004-08-09 } { e-mail: mattias@freepascal.org } program TwoDefaults; {$mode objfpc}{$H+} uses Classes, SysUtils; type TMyParentClass = class private function GetA1(Index: integer): integer; public property A1[Index: integer]: integer read GetA1; default; end; TMyClass = class(TMyParentClass) private function GetA2(Index: integer): integer; public property A2[Index: integer]: integer read GetA2; default; end; { TMyClass } function TMyParentClass.GetA1(Index: integer): integer; begin Result:=0; end; function TMyClass.GetA2(Index: integer): integer; begin Result:=0; end; begin end.