[fpc-devel]array of char

Konkoly Tamas tcc_inq at freemail.hu
Fri Sep 29 06:35:05 CEST 2000


I found an error.
Source:

const
 CharsDes1:array[0..383]of char=
  '0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF'+
  '0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF'+
  '0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF'+
  '0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF'+
  '0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF'+
  '0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF';

var rr,rt:longint;

begin
 for rr:=0 to 383 do begin
  write(CharsDes1[rr]);
 end;
end.

The program just writes the first 255 characters and
the other characters instead of write zero codes.

I think it's a bug because the 'string' isn't equal 'array[0..x]of char'.

--
.,--/'{[< Tcc of Inquisition >]}'\--,.






More information about the fpc-devel mailing list