Übersetzung C -> Pascal problem

[Targion]

Hallo!
Wie würdet ihr das nach Pascal übersetzen?

Code: Alles auswählen

#define PK_CLIENT(o)      (G_TYPE_CHECK_INSTANCE_CAST ((o), PK_TYPE_CLIENT, PkClient))

Ich komme da nicht auf eine wirklich sinnvolle Lösung.
Ich hatte sowas überlegt:

Code: Alles auswählen

function PK_CLIENT(o: GPointer): Pointer;
begin
  G_TYPE_CHECK_INSTANCE_CAST(o, pk_client_get_type(), PkClient);
end;

Aber das geht nicht, weil ich G_TYPE_CHECK_INSTANCE_CAST nirgendwo importieren kann.

[theo]

Aber das geht nicht, weil ich G_TYPE_CHECK_INSTANCE_CAST nirgendwo importieren kann.

Wie wär's mit suchen? uses glib2,

[Targion]

Läuft.
(Löst mein eigentliches Problem aber leider nicht...)
Danke!

[theo]

:mrgreen: Ist die Definition denn so in etwa korrekt übersetzt?

Keine Ahnung was du da machst, aber check doch mal das offensichtliche:
Die Fkt gibt PGTypeInstance zurück, das wäre dann wohl das Resultat.