blob: caa4015e9e122ac1583920e1987d6fd510f4bd89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ 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.
|
