TStreamCollection

type TStreamCollection = class(TCollection)

protected

  procedure WriteInteger();

  procedure WriteBoolean();

  procedure WriteString();

  procedure WriteCurrency();

  procedure WriteDateTime();

  procedure WriteFloat();

  function ReadInteger();

  function ReadBoolean();

  function ReadString();

  function ReadCurrency();

  function ReadDateTime();

  function ReadFloat();

  procedure DoSaveToStream(); virtual;

  function CurrentStreamVersion; virtual;

  procedure DoLoadFromStream(); virtual;

public

  procedure LoadFromStream();

  procedure SaveToStream();

  property Streaming: Boolean; [r]

end;

TStreamCollection

TObject