testrecords.out

格式化源码的最新板

unit testrecords;

interface

type
  tonelinerec = record
    s1, s2: string;
    fifred: integer;
  end;

  tleftrec = record
    f1: integer;
    f2: string;
    f3: double;
  end;

  tlongrec = record
    l1:   tleftrec;
    a:    string;
    b:    currency;
    c:    string;
    d:    currency;
    e:    string;
    f:    currency;
    fred: boolean;
    g:    string;
    h:    currency;
  end;

type
  tdaterec = record
    year:  integer;
    month: (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, Dec);
    day:   1..31;
  end;

  tfoorec = record
    s1, s2: string
  end;

  tbarrec = record
    i1: integer
  end;

type
  temployee = record
    firstname, lastname: string[40];
    birthdate: tdatetime;
    case salaried: boolean of
      True: (annualsalary: currency);
      False: (hourlywage: currency);
  end;

  tperson = record
    firstname, lastname: string[40];
    birthdate: tdatetime;
    case citizen: boolean of
      True: (birthplace: string[40]);
      False: (country: string[20];
        entryport: string
        [20];
        entrydate, exitdate: tdatetime);
  end;

  tfoo = record
    bar: integer;
    case spon: boolean
      of
      True: (baz: PChar);
      False: (wibble: integer;
        fish: integer);
  end;

  tfoo2 = record
    bar: integer;
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: tfoo);
  end;

  tfoo3 = record
    bar: integer;
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: tfoo;
        case boolean of
          False: (ligoop: integer);
          True: (lcglorp: currency););
  end;

  tdeepnesting = record
    bar: integer;
    case spon1: boolean of
      True: (baz1: PChar);
      False: (case spon2: boolean of
          True: (baz2: PChar);
          False: (case spon3: boolean of
            True: (baz3: PChar);
            False: (case spon4: boolean of
              True: (baz4: PChar);
              False: (case spon5: boolean of
                True: (baz5: PChar);
                False: (case spon6: boolean
                  of
                  True: (baz6: PChar);
                  False: (liendpoint: integer););););););
  end;

implementation

type
  timprec = record
    s1, s2: string;
    fifred: integer;
  end;
  tshapelist = (rectangle, triangle, circle, ellipse, other);

  tfigure = record
    lifoo: integer;
    case tshapelist of
      rectangle: (Height, Width: real);
      triangle: (side1, side2, angle: real);
      circle: (radius: real);
      ellipse, other: ();
  end;

procedure hascomplexrecord;
type
  tlocalrec = record
    foo: integer;
    bar: (trout, mackrel, rain, earth);
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: tfoo;
        case boolean
          of
          False: (ligoop: integer);
          True: (lcglorp: currency););
  end;
var
  lrec: tlocalrec;
begin
end;

procedure hasanonrecordvar;
var
  lrec: record
    foo: integer;
    bar: (trout, mackrel, rain, earth);
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: tfoo;
        case boolean of
          False: (ligoop: integer);
          True: (lcglorp: currency););
  end;
begin
end;

procedure hasanonrecordvars2;
var
  li: integer;
  lrec1: record
    foo: integer;
    bar: (trout, mackrel, rain, earth);
  end;
  s2, s3, s4: string;
  lrec2: record
    foo: integer;
    bar: (trout2, mackrel2, rain2, mars);
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: tfoo);
  end;
  d1, d2, d3, d4: double;
  lrec: record
    foo: integer;
    bar: (trout3, mackrel3, cloud, earthprime);
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: tfoo;
        case boolean of
          False: (ligoop: integer);
          True: (lcglorp: currency););
  end;
  c1, c2, c3: currency;
begin
end;

end.