<html><head></head><body><div style="font-family: Verdana;font-size: 12.0px;"><div>Hi</div>
<div> </div>
<div>I have inherited a boon-doggle of a system, about 60% of which is in an old version of Delphi. I hope to use Lazarus/Free Pascal to re-implement for Windows , with a mySQL back-end on a Linux box.</div>
<div> </div>
<div>This isn't real code, but a minimal example of what I want to do in a unit:</div>
<div> </div>
<div> TURLTable=class(TStringlist)<br/>
private<br/>
property Table: LinkArray;<br/>
public<br/>
procedure Insert(const s: string);<br/>
end;<br/>
</div>
<div>elsewhere I will have</div>
<div> </div>
<div>var</div>
<div> SpecTab: TURLTable;</div>
<div>....</div>
<div> </div>
<div>SpecTable.Insert(some string')</div>
<div> </div>
<div>When I come to write the implementation part of the unit, what's the syntax to refer to the property Table? If I use</div>
<div> </div>
<div>procedure TURLTable.Insert(const s: String);</div>
<div> </div>
<div>begin</div>
<div> Table[1] := s</div>
<div>end;</div>
<div> </div>
<div>I get the error 'No member is provided to access property.'</div>
<div> </div>
<div>How can I acess private properties like this?</div>
<div> </div>
<div>Sorry if this is naiveI've become involved in something that I really didn't anticipate.</div>
<div> </div>
<div>Joe</div>
<div>-------------------</div>
<div>joe.shepherd@cyberservices.com</div>
<div>Perth, WA, Australia</div>
<div> </div></div></body></html>