Überladen von TGeocoder

[Der schöne Günther]

System.Sensors.pas:

Delphi-Quellcode:

{$IFDEF ANDROID}
  System.Android.Sensors;
{$ENDIF ANDROID}
{$IFDEF IOS}
  System.iOS.Sensors;
{$ELSE}
{$IFDEF MACOS}
  System.Mac.Sensors;
{$ENDIF MACOS}
{$ENDIF IOS}
{$IFDEF MSWINDOWS}
  System.Win.Sensors;
{$ENDIF}

Ist deine Zielplattform Windows, wird TGeoCoder.Current einen TWindowsGeocoder zurückliefern.

Das Problem ist, dass man bei System.Win.Sensors.TPlatformGeocoder zwar die Methode GetGeocoderImplementer(): TGeocoderClass überschreiben kann, die Klasse TWindowsGeocoder allerdings im implementation -Teil der Unit deklariert ist und du von dieser nicht ableiten kannst.

Somit: Von TPlatformGeocoder ableiten wäre auch mein erster Schritt gewesen, dann weiß ich aber genauso wenig weiter: Ich müsste mir jetzt einen komplett neuen TGeoCoder schreiben (oder den Code aus System.Win.Sensors kopieren). Das kann es doch nicht sein...