TEarthStreamWriter

type TEarthStreamWriter = class(TEarthRoot)

protected

  procedure _Write(); virtual;

public

  constructor Create();

  destructor Destroy; override;

  procedure WriteBuffer(); virtual;

  procedure WriteBoolean(); virtual;

  procedure WriteDouble(); virtual;

  procedure WriteWord(); virtual;

  procedure WriteShortInt(); virtual;

  procedure WriteSmallInt(); virtual;

  procedure WriteInteger(); virtual;

  procedure WriteInteger16bit(); virtual;

  procedure WriteShortString(); virtual;

  procedure WriteRect(); virtual;

  procedure WritePointLL(); virtual;

  procedure WriteMER(); virtual;

  procedure WriteComponent();

  procedure WriteComponentRes();

  procedure WritePicture();

  procedure WriteBirmap32();

  procedure WriteColor();

  function CopyFrom();

  property DataStream: TStream; [rw]

end;

TEarthStreamWriter

TEarthRoot

TObject