mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
22 lines
288 B
ObjectPascal
22 lines
288 B
ObjectPascal
{ %FAIL }
|
|
|
|
program RTTITest;
|
|
|
|
{$mode objfpc}{$h+}
|
|
|
|
uses
|
|
SysUtils, Classes, TypInfo;
|
|
|
|
type
|
|
TMyEnum = (meOne=1, meThree=3, meFive=5, meSix);
|
|
|
|
TMyClass = class(TPersistent)
|
|
private
|
|
FEnum: TMyEnum;
|
|
Published
|
|
property Enum: TMyEnum read FEnum write FEnum;
|
|
end;
|
|
|
|
begin
|
|
end.
|