On Tue, Jun 19, 2012 at 10:38 AM, Ludo Brands <ludo.bra...@free.fr> wrote:
> > > As Bern said you can't call an object method without passing > > the reference to the instance. In this case you are lucky > > because TMyClass.SayHi doesn't use any properties or class > > vars. Add a property to TMyClass and try to writeln that > > property and you will see it fails. What you are doing here > > is calling SayHi as if it where a class method. > > > > Here is the correct way of doing it: > > function ExecMethod(Instance : TObject; Name : String) : Boolean; > type > TProc= procedure of object; > var > method : TMethod; > exec:tproc; > begin > method.Data := Pointer(Instance); > method.Code := Instance.MethodAddress(Name); > Exec:=TProc(Method); > Result := Assigned(method.Code); > if Result then Exec; > end; > > Output: > > >From MyClass : Hi World from 482800 > Hi World from 482800 > >From MyClass2 : Hi World from 482816 > Hi World from 482816 > > Ludo > Thank you Ludo, Mattias and Bernd. It works well now :) > > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > Ido
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
