Convert decimal position to dms

FNC TMS FNC Maps
1

Is there a function in FNC Maps to Convert decimal position to dms?

Thanks.

2

Hi,

You can use this conversion routine to calculate in dms format. Sample is shown for the Latitude parameter.

uses
  FMX.TMSFNCMapsCommonTypes;

procedure Calculate;
var
  coord: TTMSFNCMapsCoordinateRec;
  min, sec, deg: Integer;
begin
  coord := DefaultCoordinate;
  sec := Round(coord.Latitude * 3600);
  deg := sec div 3600;
  sec := Abs(sec mod 3600);
  min := sec div 60;
  sec := sec mod 60;
end;
3

Thanks Pieter, works fine.

1 Like