[fpc-pascal] Pass array of record as parameter

[Everton Vieira]

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 <tonvieira at gmail.com> wrote:
> 
>>> TInfo=record 
>>>  s: string;
>>>  i: integer;
>>> end;
>>> 
>>> function func1(a: array of TInfo);
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20120209/30178b6a/attachment.html>