littletest55.out

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

OUT
28
字号
unit LittleTest55;

{ AFS 28 Oct 2003

 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility
}

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.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?