mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:11:45 +02:00
19 lines
379 B
ObjectPascal
19 lines
379 B
ObjectPascal
{ 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.
|