testarray.out

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

unit TestArray;

{ AFS 23 May 2003
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 This unit tests array decls
}

interface

type
  TSomeEnum = (eFoo, eBar, eBaz, eFish, eWibble, eSpon, eMonkey, eSoy, eShatner);

  TMyArray     = array[0..100] of integer;
  TFunnythreeD = array[112..456, TSomeEnum, boolean] of integer;

var
  foo:     TMyArray;
  Puppy:   array[12..120] of integer;
  BoolArray: array[boolean] of boolean;
  SomeMap: array[TSomeEnum] of integer;

  twoD:   array[1..100, 1..100] of integer;
  threeD: array[1..100, 1..100, 1..100] of integer;
  FunnythreeD: array[112..456, TSomeEnum, boolean] of integer;

implementation

end.