testrunonconst.out

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

unit testrunonconst;

interface

type
  tfnorftype = (efnord1, efnord2, etheotherfnord);

  tfnordrecord = record
    sword:      string;
    efnordtype: tfnorftype;
    btheother:  boolean;
  end;

const
  fnordmap: array
    [0..11] of tfnordrecord = ((sword: 'bob'; efnordtype: efnord1;
    btheother: True), (sword: 'was'; efnordtype: etheotherfnord;
    btheother: False), (sword: 'here'; efnordtype: efnord2; btheother: True), (sword: 'some';
    efnordtype: efnord1; btheother: False), (sword: 'time'; efnordtype: etheotherfnord;
    btheother: True), (sword: 'after'; efnordtype: efnord1; btheother: False), (sword: 'midnight'; efnordtype: efnord2; btheother: True), (sword: 'bob';
    efnordtype: efnord1; btheother: True), (sword: 'was'; efnordtype: etheotherfnord;
    btheother: False), (sword: 'here'; efnordtype: efnord2; btheother: True), (sword: 'some';
    efnordtype: efnord1; btheother: False), (sword: 'time'; efnordtype: etheotherfnord; btheother: True));

const
  myfnord: tfnordrecord = (sword: 'bob'; efnordtype: efnord1; btheother: True);

implementation

const
  somestrings: array[1..14] of string =
    ('Fnord', 'Fnord', 'Fnord', 'Fnord', 'Fnord',
    'Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord Fnord', 'Fnord', 'Fnord',
    'This is a somewhat longer string which, although it digesses a bit just to gain length, does not contain very many fnords', 'Fnord', 'Fnord', 'Fnord Fnord Fnord', 'Fnord', 'Fnord');

end.