Hello,
The following code:
var
s1, s2: string;
v1, v2: array of byte;
begin
writeln('testing strings');
s1 := 'test';
s2 := copy(s1, 2, 10);
writeln('s2: "', s2, '" which length is ', length(s2));
s2 := copy(s1, 10, 10);
writeln('s2: "', s2, '" which length is ', length(s2));
writeln('now testing dynamic array');
setlength(v1, 5);
v2 := copy(v1, 2, 10);
writeln('length is: ', length(v2));
v2 := copy(v1, 6, 10); // <<-- here
writeln('length is: ', length(v2));
end.
will raise an exception, range check error iirc, trying to copy an array
beyond the number of its items. Just to know if this was designed or I
should report to mantis.
Thanks.
--
Joao Morais
ps - Michael, now my Format function rocks =)
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
