mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 21:32:53 +02:00
36 lines
829 B
ObjectPascal
36 lines
829 B
ObjectPascal
unit unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
implementation
|
|
|
|
{$IFDEF record} {$I record1.inc} {$ENDIF}
|
|
{$IFDEF class} {$I class1.inc} {$ENDIF}
|
|
|
|
{$IFDEF procedurebegin} {$I procedurebegin1.inc} {$ENDIF}
|
|
{$IFDEF procedurebeginend} {$I procedurebeginend1.inc} {$ENDIF}
|
|
{$IFDEF procedurebeginifbegin} {$I procedurebeginifbegin1.inc} {$ENDIF}
|
|
|
|
{$IFDEF whilebegin} {$I whilebegin1.inc} {$ENDIF}
|
|
|
|
{$IFDEF caseend} {$I caseend1.inc} {$ENDIF}
|
|
|
|
{$IFDEF caseelseend} {$I caseelseend1.inc} {$ENDIF}
|
|
|
|
{$IFDEF casecolon} {$I casecolon1.inc} {$ENDIF}
|
|
|
|
{$IFDEF repeatifelse} {$I repeatifelse1.inc} {$ENDIF}
|
|
{$IFDEF tryif} {$I tryif1.inc} {$ENDIF}
|
|
|
|
{$IFDEF ifbegin} {$I ifbegin1.inc} {$ENDIF}
|
|
{$IFDEF ifbeginelse} {$I ifbeginelse1.inc} {$ENDIF}
|
|
{$IFDEF beginwithoutindent} {$I beginwithoutindent1.inc} {$ENDIF}
|
|
|
|
end.
|
|
|