SASGIS - SAS.Планета
View Issue Details
0003811SAS.ПланетаРефакторингpublic01-02-2022 19:1807-07-2022 08:48
zed 
zed 
normalminorhave not tried
resolvedfixed 
211230 
220707220707 
0003811: Добавить поддержку gpx метаинформации в IEnumDoublePoint
В интерфейс нужно добавить перегруженный метод Next для получения метаинформации:

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;
No tags attached.
child of 0002503resolved zed Сохранение высоты и времени меток при импорте GPX трека 
Issue History
01-02-2022 19:18zedNew Issue
01-02-2022 19:18zedStatusnew => assigned
01-02-2022 19:18zedAssigned To => zed
01-02-2022 19:19zedDescription Updatedbug_revision_view_page.php?rev_id=7797#r7797
01-02-2022 19:20zedRelationship addedchild of 0002503
01-02-2022 19:23zedNote Added: 0020274
15-02-2022 11:40zedStatusassigned => resolved
15-02-2022 11:40zedFixed in Version => 24xxxx
15-02-2022 11:40zedResolutionopen => fixed
07-07-2022 08:47zedTarget Version24xxxx => 220707
07-07-2022 08:48zedFixed in Version24xxxx => 220707

Notes
(0020274)
zed   
01-02-2022 19:23   
Или даже лучше без перегрузки, а через указатель:

function Next(out APoint: TDoublePoint; const AMetaItem: PDoublePointMetaItem = nil): Boolean;

если nil, то мету не возвращаем, если не nil, то заполняем структуру. Так в mORMot частенко сделано.