<div dir="ltr"><div class="gmail_extra"><div class="gmail_extra"><div class="gmail_extra">type</div><div class="gmail_extra">  TURLTable = class(TStringlist)</div><div class="gmail_extra">  private</div><div class="gmail_extra">    FTable: LinkArray;</div><div class="gmail_extra">    function GetTable: LinkArray;</div><div class="gmail_extra">  public</div><div class="gmail_extra">     procedure Insert(const s: string);</div><div class="gmail_extra">     property Table: LinkArray read GetTable;</div><div class="gmail_extra">  end;</div><div class="gmail_extra"> </div><div class="gmail_extra">function TURLTable.GetTable: LinkArray;</div><div class="gmail_extra">begin</div><div class="gmail_extra">  Result := FTable;</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">procedure TURLTable.Insert(const s: string);</div><div class="gmail_extra">begin</div><div class="gmail_extra">end;</div><div class="gmail_extra"><br></div><div class="gmail_extra">... or alternately</div><div class="gmail_extra"><br></div><div class="gmail_extra">  property Table: LinkArray read FTable;</div><div class="gmail_extra"><br></div><div class="gmail_extra"><br></div><div class="gmail_extra">... and remove function GetTable: LinkArray;</div></div></div></div>