mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
19 lines
253 B
ObjectPascal
19 lines
253 B
ObjectPascal
unit uw23204;
|
|
|
|
//{$mode Delphi}{$H+} // error disappears!
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
// TPColor = (pc1, pc2);
|
|
TPType = (pt_0, pt_1);
|
|
TP = record
|
|
// AColor: TPColor;
|
|
AType: TPType;
|
|
end;
|
|
TPs = set of TPType;
|
|
|
|
implementation
|
|
end.
|