t_id
706
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
482193843 | 941183 | True | False | Successfully run |
Record count: 1
{$mode objfpc} type T1 = class function Get(I: Integer): Integer; virtual; abstract; property T[I: Integer]: Integer read Get; default; end; T2 = class(T1) function Get(I: Integer): Integer; override; property T[I: Integer]: Integer read Get; default; end; function T2.Get(I: Integer): Integer; begin Result:=I; end; var c2 : t2; begin c2:=t2.create; if c2[9]<>9 then halt(1) else halt(0); end.