Code:// Free Pascal {$assertions on} procedure stuffints( var a: array of longint; const b: array of longint); var i: word; begin assert(high(b)<=high(a), 'Too many args to stuffints.' ); for i := low(b) to high(b) do a[i] := b[i]; end; var a: array[1..5] of longint; ad: array of longint; begin stuffints( a, [11,22,33,44,55] ); setlength( ad, 3 ); stuffints( ad, [22,33,44] ); end.
Bookmarks