littletest55.obs

格式化源码的最新板

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.