Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!hp4nl!eurtrx!euraiv1!reino
From: reino@cs.eur.nl (Reino de Boer)
Newsgroups: comp.lang.pascal
Subject: Re: Help: How can I implement a record with variable width
Message-ID: <1991Jan10.134401.18459@cs.eur.nl>
Date: 10 Jan 91 13:44:01 GMT
References: <29636@shamash.cdc.com> <11660@j.cc.purdue.edu> <24882@dime.cs.umass.edu>
Organization: Erasmus Universiteit Rotterdam, dept. CS (Informatica)
Lines: 32

eli@smectos.gang.umass.edu (Eli Brandt) writes:

>As an unrecontructed C user, I do the following:

>type
>  VarArrType = array[1..1] of integer;

>function UseVarArray(elements: integer; varr: VarArrType);
>var i: integer;
>begin
>  for i := 1 to elements do writeln(varr[i]);
>end;

or:
const	arl	=  5;
	aru	= 10;
	arsize	= aru - arl + 1;
var	ar	: array [arl..aru] of integer;
procedure WritelnIntArray( elements : integer; var intarray );
	var	a : array [1..maxint] of integer absolute intarray;
		i : integer;
	begin
		for i := 1 to elements do
			writeln( a[i] )
	end;
begin
	WritelnIntArray( arsize, ar )
end.
-- 
Reino R. A. de Boer     "We want to build the right product right, right?"
Erasmus University Rotterdam ( Informatica )
e-mail: reino@cs.eur.nl