ObjectiveC -> XE4 Nachhilfe gesucht...

[Mavarik]

Hallo Zusammen!

Ich beschäftige mich gerade mit dem MapKit...

Hier ist die Definition:

Delphi-Quellcode:

function TMyDelegate.mapView(mapView: MKMapView;viewForAnnotation: MKAnnotation): MKAnnotationView;

Dieser Delegate function wird von iOS aber mit zwei verschiedene Typen übergeben...

einmal

Delphi-Quellcode:

MKUserLocation = interface(NSObject)

und

Delphi-Quellcode:

MKAnnotation = interface(IObjectiveC)

Innerhalb der o.g. Function muss nun abgetestet werden, nach welchem der beiden Interfaceobjecten gefragt ist...

Leider läßt sich

Delphi-Quellcode:

  if viewForAnnotation is MKUserLocation then // <- Compilerfehler
    begin
      result := NIL;
      exit;
    end;

nicht kompilieren...

Wie muss man das schreiben?

Grüsse Mavarik

[TiGü]

Was kommt denn für ein Compilerfehler?

Geht folgendes?

Delphi-Quellcode:

  if Supports(viewForAnnotation, MKUserLocation) then 
    begin
      result := NIL;
      exit;
    end;

[Mavarik]

Zitat:

Zitat von TiGü (Beitrag 1225694)

Was kommt denn für ein Compilerfehler?

Geht folgendes?

Delphi-Quellcode:

  if Supports(viewForAnnotation, MKUserLocation) then 
    begin
      result := NIL;
      exit;
    end;

Supports kennt "er" nicht...

[Daniel]

Dann bring es ihm doch bei. ;-)

http://docwiki.embarcadero.com/Libra...Utils.Supports

[mkinzler]

Supports überprüft, ob ein Objekt ein Interface implementiert, man müsste also die Instanz noch mit angeben.

Delphi-Quellcode:

if Supports( <Instanz>, viewForAnnotation, MKUserLocation) then

[jensw_2000]

Ich bin gerade noch unterwegs und kann nicht nachschauen.

Ins Blaue getippt würde ich sagen, dass es eine Instanzmethode Names "performsToSelector" geben müsste.

Diese Methode gibt True (YES) zurück, wenn das Objekt eine bestimmte Methode unterstützt.

Sorry, geht gerade nicht genauer.
Ich schaue nochmal nach, wenn ich zurück bin.

[TiGü]

Zitat:

Zitat von mkinzler (Beitrag 1225699)

Supports überprüft, ob ein Objekt ein Interface implementiert, man müsste also die Instanz noch mit angeben.

Delphi-Quellcode:

if Supports( <Instanz>, viewForAnnotation, MKUserLocation) then

Nö, gibt es auch so:

Delphi-Quellcode:

function Supports(const Instance: IInterface; const IID: TGUID): Boolean;
function Supports(const Instance: TObject; const IID: TGUID): Boolean;
function Supports(const AClass: TClass; const IID: TGUID): Boolean;

Siehe emba wiki link von Daniel!
viewForAnnotation scheint ja schon die Instanzvariable zu sein?!

[mkinzler]

Ich kannte nur die Versionen mit Klasse oder Instanz.
Daniels Antwort wurde bei mir unterschlagen, sonst hätte ich es (vielleicht) selber gesehen ;)

[Mavarik]

Danke... Drecks Hilfe, hat Supports nicht gefunden...

Compilieren läßt es sich, funktioniert aber nicht...

Noch ne Idee?

Mavarik

[jensw_2000]

Die Klasse "MKAnnotation" hat eine Methode namens "setCoordinate".

Die Klasse "MKUserLocation" ist eine Subclass von "MKAnnotation".
Sie kann die Methode "setCoordinate" der Basisklasse nutzen, hat aber selbst keine Methode "setCoordinate" deklariert.

Die NSObject Klassenmethode "respondsToSelector" prüft, ob eine Klasse eine bestimmte Methode unterstützt (ohne dabei durch die Vererbung zu wandern).

Dein "viewForAnnotation" ist von NSObject abgeleitet, kennt also die Methode "respondsToSelector".

Du brauchst also einfach nur zu prüfen, ob

Code:

viewForAnnotation.respondsToSelector(selector(setCoordinate:))

True oder False zurückgibt.

Die Funktion Selector() liegt im Cocoa Foundation Framework.

Wenn True, dann "MKAnnotation" sonst "MKUserLocation".