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
