Thanks. Em 09/02/2012, às 15:53, Thomas Young escreveu:
> This is how I would do that. There may be a better way. > >> TInfo=record >> s: string; >> i: integer; >> end; >> > ATInfo = array[1..100] of TInfo; > ATInfoPtr = ^ATInfo; > > Var > A:ATInfoPtr; > >> function func1(a:ATInfoPtr); > > Thomas Young > 330-256-7064 > www.tygraphics.net > Sent from my iPhone > > On Feb 9, 2012, at 12:24 PM, Everton Vieira <tonvie...@gmail.com> wrote: > >>> TInfo=record >>> s: string; >>> i: integer; >>> end; >>> >>> function func1(a: array of TInfo); > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
