On Tue, Dec 17, 2002 at 01:03:13PM -0800, Russell Whitaker wrote:
The program below works, but the array in the unit defaults to a zero-based array.
Borland's "open arrays" are always zero based. Standard conformant arrays don't have this restriction:
procedure show (a: array [m .. n: integer] of integer); var i : integer; begin for i := m to n do write( a[ i ]:7 ); writeln; end;
Emil
unit bar;
interface
procedure show( a: array of integer );
implementation
procedure show( a: array of integer ); var i : integer; begin for i := 1 to 4 do write( a[ i ]:7 ); writeln; end;
end.
program foo; uses bar; var a: array[1..5] of integer; i: integer; begin for i := 1 to 5 do a[i] := i; for i := 1 to 5 do write( a[i]:7 ); writeln; show( a ); end.
Russ