littletest48.out

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

unit LittleTest48;

{ AFS 7 October 2003

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

interface

{ test an assertionn failure
  reported by Adem Baba
}

type
  TFoo = record
    Stuff:   PChar;
    Counter: integer;
    Name:    string;
  end;

  TBar = record
    Flag:  boolean;
    myFoo: TFoo;
    Size:  integer;
  end;

  TFish = record
    Counter: integer;
    myFoo:   TFoo;
    myBar:   TBar;
  end;

implementation


function FindTheFish(const piSoy: integer): TFish;
begin
  { complex expr on the left hand side of :=  }
  Result.Counter    := 3;
  Result.myBar.Size := (piSoy + 1);
  Result.myBar.MyFoo.Counter := (piSoy + 1);
  (Result.myFoo.Stuff +piSoy)^ := #0;
end;



end.