mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
24 lines
203 B
ObjectPascal
24 lines
203 B
ObjectPascal
{ %norun }
|
|
Unit tw26069;
|
|
|
|
{$mode delphi}
|
|
|
|
Interface
|
|
|
|
Type
|
|
TClass1 = Class
|
|
Type
|
|
TReason = (rnOne, rnTwo);
|
|
End;
|
|
|
|
TClass2 = Class
|
|
Type
|
|
TReason = (rn1, rn2);
|
|
End;
|
|
|
|
|
|
Implementation
|
|
|
|
End.
|
|
|