iOS: 位置情報サービスの ON/OFF 判定

Delphi

Delphi で iOS の位置情報サービスの ON/OFF 判定は、以下の通りです。

uses iOSapi.CoreLocation;

var
  Locater: CLLocationManager;
begin
  Locater := TCLLocationManager.Create;
  if Locater.locationServicesEnabled then
    ShowMessage('位置情報サービスは ON です')
  else
    ShowMessage('位置情報サービスは OFF です');
end;

※ただし、これだけだと不足がある。位置情報ONだけれどもアプリが位置情報アクセスを禁止されていた場合のケースが抜けているからです。