t_id
706
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.