blob: 39288916e69d0f4a53985eb758f08a57e542e336 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 2999 }
{ Submitted by "Sergey Kosarevsky" on 2004-03-03 }
{ e-mail: netsurfer@au.ru }
{$mode objfpc}
Type tSelector=(FIRST, SECOND);
Type tMyClass=Class
Private
T:Array[tSelector] Of Longint;
Public
Property T1:Longint Read T[FIRST];
Property T2:Longint Read T[SECOND];
End;
Begin
End.
|
