littletest55.obs

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

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.