blob: b0bace22fecd9f2d0bb1070b6dab2acac679ad5b (
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
33
34
35
36
37
38
|
{ Source provided for Free Pascal Bug Report 4789 }
{ Submitted by "Andrew Haines" on 2006-02-09 }
{ e-mail: andrewd207@aol.com }
program Project1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils
{ add your units here };
type
{ TSimpleObj }
TSimpleSet = (ssOne, ssTwo, ssThree);
TSimpleObj = class(TObject)
private
procedure SetTestVal(const AIndex: Integer; const AIsSet: Boolean);
function GetTestVal(const AIndex: Integer): Boolean;
public
Property TestVal: Boolean index Ord(ssOne) read GetTestVal write SetTestVal;
end;
{ TSimpleObj }
procedure TSimpleObj.SetTestVal(const AIndex: Integer; const AIsSet: Boolean);
begin
end;
function TSimpleObj.GetTestVal(const AIndex: Integer): Boolean;
begin
end;
begin
end.
|
