Re: fill string

7 Aug 2005


      Russell Whitaker wrote:
...
This used to work:
... before GPC did range checking. ;-)
...
program fil;
var
   i : integer;
   s : string( 500 );
begin
   for i := 1 to 500 do
     s[ i ] := ' ';
   writeln("ok");
end.
Now I get "Value out of range"
The length of the string is uninitalized (and probably happens to be
0), so accesss to characters > 0 (i.e., all ;-) is out-of range.

You could do `SetLength (s, 500)' before the loop, or
`uses GPC; [...] s := StringOfChar (' ', 500);' instead of the loop.

Frank

-- 
Frank Heckenbach, frank@g-n-u.de, http://fjf.gnu.de/, 7977168E
GPC To-Do list, latest features, fixed bugs:
http://www.gnu-pascal.de/todo.html
GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE  D101 CD02 4C9D 0FE0 E5E8