littletest46.out

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

OUT
27
字号
unit LittleTest46;

interface

{ AFS 20 September 2003

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

{ some pointer types }
type
  PInteger = ^integer;
  P_Char   = ^char;

  PPtr  = ^Pointer;
  PPPTr = ^PPtr;
  PFile = ^file;

  TFoo = (fish, wibble, spon);

  PFoo = ^TFoo;

implementation

end.

⌨️ 快捷键说明

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