TStreamCollectionItem

type TStreamCollectionItem = class(TCollectionItem)

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 LoadFromStream(); virtual; abstract;

  procedure SaveToStream(); virtual; abstract;

end;

TStreamCollectionItem

TObject