SASGIS

IEnumDoublePoint = interface

  function Next(out APoint: TDoublePoint): Boolean; overloaded;

  function Next(out APoint: TDoublePoint; out AMetaItem: TDoublePointMetaItem): Boolean;

end;

  TDoublePointsMetaItem = record

    IsElevationOk: Boolean;

    IsTimeStampOk: Boolean;



    Elevation: Double;

    TimeStamp: TDateTime;

  end;

  PDoublePointsMetaItem = ^TDoublePointsMetaItem;

IEnumDoublePoint = interface

  function Next(out APoint: TDoublePoint): Boolean; overload;

  function Next(out APoint: TDoublePoint; out AMetaItem: TDoublePointMetaItem): Boolean; overload;

end;

  TDoublePointsMetaItem = record

    IsElevationOk: Boolean;

    IsTimeStampOk: Boolean;



    Elevation: Double;

    TimeStamp: TDateTime;

  end;

  PDoublePointsMetaItem = ^TDoublePointsMetaItem;