Was macht der Typecast Pointer()?

[s.h.a.r.k]

Hallo,

meine Frage steht schon im Titel. Was macht der Typecast Pointer()? Macht er das gleiche, wie der @-Operator. Ich habe neulich beides getestet und, auf einen Integer angewendet, es kam etwas verschiedenes dabei raus.

mfg
Armin

[Namenloser]

Pointer tut so als wäre eine bestimmte Variable ein Pointer, @ ermittelt die Adresse einer Variablen.

[mkinzler]

Delphi-Quellcode:

 adr := @<Variable>;

liefert die Adresse der Variable

Delphi-Quellcode:

adr := Pointer(<Variable>);

betrachtet den Inhalt als Adresse

[s.h.a.r.k]

Es kommt doch aber nix sinnvolles dabei raus, wenn ich das auf einen Integer anwende. Ich bekomme dann doch einen Pointer der halt irgendwo hin zeigt.

Wie sieht das dann bei der Anwendung auf eine Klasse aus?

Warum die Frage überhaupt? Ich habe diese Code hier gefunden:

Delphi-Quellcode:

procedure TForm2.ExecMethod(OnObject: TObject; MethodName: string) ;
var
   Routine: TMethod;
   Exec: TExec;
begin
   Routine.Data := Pointer(OnObject) ; { <- hier die Stelle }
   Routine.Code := OnObject.MethodAddress(MethodName) ;
   if NOT Assigned(Routine.Code) then Exit;
   Exec := TExec(Routine) ;
   Exec;
end;

[Namenloser]

Zitat:

Zitat von s.h.a.r.k

Es kommt doch aber nix sinnvolles dabei raus, wenn ich das auf einen Integer anwende. Ich bekomme dann doch einen Pointer der halt irgendwo hin zeigt.

Kommt halt darauf an, was in dem Integer steht. Du kannst z.B. auch sowas machen:

Delphi-Quellcode:

var
  Pointer1, Pointer2: Pointer;

...

  Pointer2 := Pointer( Integer(Pointer1) + 5 ); // 5 Bytes hinter Pointer 1

Zitat:

Zitat von s.h.a.r.k

Wie sieht das dann bei der Anwendung auf eine Klasse aus?

Du meinst wohl ein Objekt, keine Klasse. Ein Objekt ist intern selbst auch nichst anderes als ein Pointer - deswegen klappt die Umwandlung hier problemlos. Aus dem gleichen Grund kannst du z.B. auch Objekte in den Data-Eigenschaften vieler List-/TreeView-Komponenten unterbringen.
Und eine Methode (TMethod) ist nun mal als Record so aufgebaut, dass eine Referenz (Pointer) auf das Objekt und die Adresse der Funktion gespeichert wird. Die Referenz wird benötigt, weil jede Methode einen unsichtbaren ersten Parameter self hat - der ist nötig, damit du auf die Felder des jeweiligen aufrufenden Objekts zugreifen kannst.

[s.h.a.r.k]

Jup, ich meinte ein Objekt einer Klasse :zwinker:

Warum bekomme ich eigentlich bei einen @Methoden() keinen Pointer zurück, sondern eine Fehlermeldung, dass Parameter fehlen? oO

Eigentlich müsste das doch klappe, oder? Bzw. wo liegt der Unterschied zwischen Methoden (Prozeduren/Funktionen einer Klasse) und normalen Prozeduren/Funktionen?

[Namenloser]

Der Unterschied ist, dass bei Methoden immer die Referenz auf das Objekt mitgeliefert werden muss. TMethod ist deshalb auch ein Record mit zwei Pointern, während eine normale Funktion/Prozedur nur einen Pointer hat. Aus diesem Grund wird der @-Operator wahrscheinlich unterbunden.

[s.h.a.r.k]

Wie kann ich dann einen Pointer auf eine Methode bekommen?

Delphi-Quellcode:

var
  Routine: TMethod;
  Exec: TExec;
begin
  Routine.Data := Pointer(OnObject) ;
  Routine.Code := OnObject.MethodAddress(MethodName) ;
  if NOT Assigned(Routine.Code) then Exit;
  Exec := TExec(Routine) ;
  Exec;
end;

Diesen Code habe ich dazu gefunden gehabt, nur liefert mir die Methode MethodAddress leider immer nil zurück, auch wenn das Objekt schon instanziiert ist und eben eine besagte Methode vorhanden ist.

[sx2008]

Zitat:

Zitat von s.h.a.r.k

... nur liefert mir die Methode MethodAddress leider immer nil zurück, auch wenn das Objekt schon instanziiert ist und eben eine besagte Methode vorhanden ist.

Die Methode muss published sein; nur so kann die Adresse anhand des Namens gefunden werden.

[himitsu]

Zitat:

Zitat von sx2008

Die Methode muss published sein; nur so kann die Adresse anhand des Namens gefunden werden.

oder mindestens Public, wenn man "erweiterte" RTTI-Daten zur Klasse mit eincompiliert (hab grad kein Delphi hier, aber ich glaub es ging mit dem Compilierschalter $M :gruebel: )