mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 00:48:37 +02:00
29 lines
316 B
ObjectPascal
29 lines
316 B
ObjectPascal
program terecs11;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
type
|
|
TRecord = record
|
|
private type
|
|
TTestClass = class
|
|
|
|
end;
|
|
TTestRecord = record
|
|
|
|
end;
|
|
TTestObject = object
|
|
|
|
end;
|
|
TTestInterface = interface
|
|
|
|
end;
|
|
TTestString = String[20];
|
|
TTestRange = 0..42;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|