blob: 10b640ca34240ef64ba23aa45af13231b16597f7 (
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
|
{ Source provided for Free Pascal Bug Report 3506 }
{ Submitted by "Frank Kintrup" on 2005-01-04 }
{ e-mail: frank.kintrup@gmx.de }
{$MODE Delphi}
type
TEnumType = (enum0, enum1, enum2);
type
TTestClass = class (TObject)
private
function GetPropValue(
nIndex : TEnumType) : Integer;
public
property Prop0 : Integer index enum0
read GetPropValue;
end;
function TTestClass.GetPropValue(
nIndex : TEnumType) : Integer;
begin
Result := Integer(nIndex);
end;
begin
end.
|
