t_id
1533
t_adddate
2005/03/18
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ Source provided for Free Pascal Bug Report 3796 } { Submitted by "Antonio Marti" on 2005-03-15 } { e-mail: windowze2000@yahoo.es } { FAILS WITH: fpc -Mobjfpc test.pp WHY? IS IT A BUG? } unit tw3796; {$mode objfpc} interface uses objects; type PType = ^TType; TType = object(TObject) private function IsEmpty: Boolean; public property Empty : Boolean Read IsEmpty; end; implementation function TType.IsEmpty: Boolean; begin result:=True; end; end.