littletest55.out

格式化源码的最新板

unit littletest55;

interface

implementation

procedure foo;
var
  i: integer;
begin
{$IF Defined(LINUX)}

   i := 42;
{$ELSEIF Defined(MSWINDOWS)}
  i := 23;
{$ELSE}
   {$MESSAGE ERROR 'foo not implemented'}

{$IFEND}
end;

end.