<html><head></head><body bgcolor="#FFFFFF"><div>New(A);</div><div><br><blockquote type="cite"><div><div><blockquote type="cite"><font class="Apple-style-span" color="#000000">function func1(a:ATInfoPtr);</font></blockquote></div></div></blockquote> var</div><div> Name:string;</div><div> N:integer;<br> begin</div><div> N:= 1;</div><div> Name:= a^[n].s;</div><div> end;</div><div><br></div><div> <br><br>Thomas Young<div>330-256-7064</div><div><a href="http://www.tygraphics.net">www.tygraphics.net</a></div><div>Sent from my iPhone</div></div><div><br>On Feb 9, 2012, at 12:53 PM, Thomas Young <<a href="mailto:tygraphics@me.com">tygraphics@me.com</a>> wrote:<br><br></div><div></div><blockquote type="cite"><div><div>This is how I would do that. There may be a better way.</div><div><br><blockquote type="cite"><font class="Apple-style-span" color="#000000">TInfo=record <br></font></blockquote><blockquote type="cite"><font class="Apple-style-span" color="#000000"><span> s: string;</span><br></font></blockquote><blockquote type="cite"><font class="Apple-style-span" color="#000000"><span> i: integer;</span><br></font></blockquote><blockquote type="cite"><font class="Apple-style-span" color="#000000"><span>end;</span><br></font></blockquote><blockquote type="cite"><font class="Apple-style-span" color="#000000"><span></span><br></font></blockquote><div>ATInfo = array[1..100] of TInfo;</div><div>ATInfoPtr = ^ATInfo;</div><div><br></div><div>Var</div><div>A:ATInfoPtr;</div><br><blockquote type="cite"><font class="Apple-style-span" color="#000000">function func1(a:ATInfoPtr</font><span class="Apple-style-span" style="-webkit-tap-highlight-color: rgba(26, 26, 26, 0.296875); -webkit-composition-fill-color: rgba(175, 192, 227, 0.230469); -webkit-composition-frame-color: rgba(77, 128, 180, 0.230469); ">);</span></blockquote><br>Thomas Young<div>330-256-7064</div><div><a href="http://www.tygraphics.net">www.tygraphics.net</a></div><div>Sent from my iPhone</div></div><div><br>On Feb 9, 2012, at 12:24 PM, Everton Vieira <<a href="mailto:tonvieira@gmail.com">tonvieira@gmail.com</a>> wrote:<br><br></div><blockquote type="cite"><blockquote type="cite"><span>TInfo=record </span><br></blockquote><blockquote type="cite"><span> s: string;</span><br></blockquote><blockquote type="cite"><span> i: integer;</span><br></blockquote><blockquote type="cite"><span>end;</span><br></blockquote><blockquote type="cite"><span></span><br></blockquote><blockquote type="cite"><span>function func1(a: array of TInfo);</span></blockquote></blockquote><div></div></div></blockquote><blockquote type="cite"><div><span>_______________________________________________</span><br><span>fpc-pascal maillist - <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a></span><br><span><a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a></span></div></blockquote></body></html>