littletest59.out

来自「格式化源码的最新板」· OUT 代码 · 共 27 行

unit LittleTest59;

{ AFS 19 Nov 2003
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 Adem Baba's ifdef uses clause example
}
interface

{$DEFINE FISH}

uses
 {$IF DEFINED(FISH)}Messages{$ELSE}Controls{$IFEND},
  Forms;

const
  FOO = 2;

implementation

uses
 {$IF FOO=1}Classes{$ELSE}SysUtils{$IFEND},
  StdCtrls;

end.