testwith.out

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

unit testwith;

interface

type
  trecordone = record
    foo: integer;
    bar: string;
  end;

  trecordtwo = record
    baz:    integer;
    fish:   string;
    wibble: trecordone;
  end;

  trecordthree = record
    spon:   integer;
    plud:   string;
    monkey: trecordone;
    soy:    trecordtwo;
  end;

  trecordfour = record
    kirk:   integer;
    spock:  string;
    picard: trecordtwo;
    Data:   trecordthree;
  end;

  trecordfive = record
    worf:  integer;
    troy:  string;
    riker: trecordtwo;
    q:     trecordthree;
    borg:  trecordfour;
  end;

implementation

procedure testwithstatement1;
var
  localrecord1: trecordone;
  localrecord2: trecordtwo;
  localrecord3: trecordthree;
  localrecord4: trecordfour;
  localrecord5: trecordfive;
begin
  with localrecord1 do
  begin
  end;
  with localrecord1, localrecord2 do
  begin
  end;
  with localrecord1, localrecord2, localrecord3 do
  begin
  end;
  with localrecord1, localrecord2, localrecord3, localrecord4 do
  begin
  end;
  with localrecord1, localrecord2, localrecord3, localrecord4, localrecord5 do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3, localrecord4, localrecord5 do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy, localrecord4, localrecord5 do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy, localrecord4.Data, localrecord5 do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy, localrecord4.Data, localrecord5.borg do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy.wibble, localrecord4.Data, localrecord5.borg do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy.wibble,
    localrecord4.Data.soy, localrecord5.borg do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy.wibble,
    localrecord4.Data.soy.wibble, localrecord5.borg do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy.wibble, localrecord4.Data.soy.wibble,
    localrecord5.borg.Data do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy.wibble, localrecord4.Data.soy.wibble, localrecord5.borg.Data.soy do
  begin
  end;
  with localrecord1, localrecord2.wibble, localrecord3.soy.wibble, localrecord4.Data.soy.wibble,
    localrecord5.borg.Data.soy.wibble do
  begin
  end;
end;

end.