<div dir="ltr">2013/9/16 Martin <span dir="ltr"><<a href="mailto:lazarus@mfriebe.de" target="_blank">lazarus@mfriebe.de</a>></span><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div text="#000000" bgcolor="#FFFFFF">
    What do you mean "passing the self const as default"?</div></blockquote></div><div><br></div><div>I'm trying it:</div><div><br></div><div><div>  TMyClass = class</div><div>  private</div><div>    FData: string;</div>

<div>  public</div><div>    procedure WriteLn(const S: string);</div></div><div><br></div><div>...</div><div>var</div><div>  obj: TMyClass;</div><div><br></div><div>  ps.SetVarToInstance('SELF', obj);<br></div><div>

<br></div><div>So when I call "WriteLn", it must call WriteLn of my "obj" instance.</div><div><br></div><div>Please see the full code in attached in previous e-mail.</div><div><br></div>-- <br>Silvio Clécio<br>

My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>