Was macht der Typecast Pointer()?

[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;