10 Jan
2000
10 Jan
'00
12:02 p.m.
Klaus Friis Ãstergaard a écrit : Is this a compiler error or a programming error we I get junk in B in the procedure the values are good enough. see below.
You have extracted some lines from a longer program and probably introduced errors. Check that the following corrected program works (it does for me on djgpp)
program bug;
Type MyArray ( m, n : integer ) = array [ 1..m, 1..n ] of Integer; pMyArray = ^MyArray;
Var B: pMyArray; i: integer;
Procedure BuildArray(var pNewArray : pMyArray; k: Integer); var i:integer; begin
New ( pNewArray, k, k);
For i := 1 to k do pNewArray^[3 ,i ]:= i+k;
end;
begin buildArray(B, 10); For i := 1 to 10 do begin Writeln(b^[3,i]); end;
Dispose ( B ); end.
--
Maurice Lombardi
Laboratoire de Spectrometrie Physique,
Universite Joseph Fourier de Grenoble, BP87
38402 Saint Martin d'Heres Cedex FRANCE
Tel: 33 (0)4 76 51 47 51
Fax: 33 (0)4 76 51 45 44
mailto:Maurice.Lombardi@ujf-grenoble.fr