
<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Thanks.<div><br><div><div>Em 09/02/2012, às 15:53, Thomas Young escreveu:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div bgcolor="#FFFFFF"><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">TInfo=record <br></font></blockquote><blockquote type="cite"><font class="Apple-style-span"><span> s: string;</span><br></font></blockquote><blockquote type="cite"><font class="Apple-style-span"><span> i: integer;</span><br></font></blockquote><blockquote type="cite"><font class="Apple-style-span"><span>end;</span><br></font></blockquote><blockquote type="cite"><font class="Apple-style-span"><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">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>_______________________________________________<br>fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br><a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a></blockquote></div><br></div></body></html>