printable.pas

来自「《Delphi技术手册源码》原书佩戴的光盘」· PAS 代码 · 共 18 行

unit Printable;

interface

// Stuff to help print large, complex data structures.
// Each class that can be printed implements the IPrintable interface.
// Classes that might be stored in cyclic data structures should also
// implement ICollectible.
//
// The TInfoStream object keeps track of which objects have been printed
// and which have not. It avoid printing objects that have already been
// printed. It does this by keeping a hashed set of objects after printing
// each one. Thus, the objects must implement the ICollectible interface.
//
// The stream also maintains the notion of a current indentation. Use the
// indentation to help show nested data structures.

// Copyright