On Wed, 13 Jul 2005 19:55:33 -0500
Elio Cuevas Gómez <[EMAIL PROTECTED]> wrote:
> I tried your version, but didn't make much diference. Looks like Write
> is indeed broken, i'll report it as a bug. Thanks for all your help :).
I tried it here - works fine for me (See code tested below). A doubt: did
you correctly set the for loops... 0..MAX_MAPY is actually one more that
you might expect! As I cannot see the definition of MAX_MAPY, I don't
know if they're correct.
Anyways, this works (note 1..5 in array def, and loops):
program test;
var
Map: array [1..6, 1..6] of integer;
i, j: integer;
MapFile: text;
begin
assign(MapFile, 'test.map');
reset(MapFile);
for j := 1 to 6 do begin
for i := 1 to 6 do
Read(MapFile, Map[i, j]);
end;
for j := 1 to 6 do begin
for i := 1 to 6 do
write(Map[i, j]:3);
writeln;
end;
close(MapFile);
end.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
