TEarthMIFReader

type TEarthMIFReader = class(TEarthFileReader)

protected

  iMIFVersion: Integer;

  CurrentMIFLine: string;

  CurrentMIDLine: string;

  aPen: TEarthPen;

  aBrush: TEarthBrush;

  aFont: TEarthFont;

  aTitleFont: TEarthFont;

  function InternalOpen; override;

  function InternalClose; override;

  function MIF2DelphiBrush();

  function MIF2DelphiPen();

  function MIF2DelphiColor();

  function ReadLLPointFromLine;

  function ReadLLPoint();

  function ReadPenObject;

  function ReadBrushObject;

  function ReadFontObject;

  function ReadLineObject();

  function ReadPLineObject();

  function ReadPointObject();

  function ReadRegionObject();

  function ReadTextObject();

  function ReadMIFLine;

  function ReadMIDLine;

  function MapDataHeader(); override;

  function MapDataObject(); override;

  function GetMIFWord();

  function GetMIDWord();

  function ReplaceStr();

  function StrSplitToList();

public

  procedure LoadEnvironment(); override;

  function SaveEnvironment; override;

  procedure SaveMetaData; override;

  procedure LoadMetaData; override;

  function LoadObject(); override;

published

  property MIFCoordSys: string; [rw]

  property MIDDelimiter: string; [rw]

  property MIDColumnNames: TStringList; [rw]

  property TitleColumn: Integer; [rw]

end;

TEarthMIFReader

TEarthFileReader

TEarthObjectStore

TEarthENVPersistent

TEarthRoot

TObject