2013/9/16 silvioprog <silviop...@gmail.com>
> 2013/9/16 Martin <laza...@mfriebe.de>
>
>> What do you mean "passing the self const as default"?
>>
>
> I'm trying it:
>
> TMyClass = class
> private
> FData: string;
> public
> procedure WriteLn(const S: string);
>
> ...
> var
> obj: TMyClass;
>
> ps.SetVarToInstance('SELF', obj);
>
> So when I call "WriteLn", it must call WriteLn of my "obj" instance.
>
> Please see the full code in attached in previous e-mail.
>
OMG, I think that I found an useful sample(*). I'll try it. :)
(*) http://forum.lazarus.freepascal.org/index.php?topic=15563.0
--
Silvio Clécio
My public projects - github.com/silvioprog
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
