TChainedStream

type TChainedStream = class(TStream)

  FStreams: TChainedStreamArray;

  FPosition: Int64;

  FCurrentStreamIdx: Integer;

protected

  function CurrentStream;

  function StreamSize;

  function NextStream;

  function PrevStream;

  function GetTotalSize;

  function GetSize; virtual;

public

  constructor Create();

  destructor Destroy; override;

  function Read(); override;

  function Write(); override;

  function Seek(); override;

  property StreamCount: Integer; [r]

  property Streams []: TStream; [r]

  property OwnsStreams: Boolean; [rw]

end;

TChainedStream

TObject