On Thu, 13 Aug 2015, Chris Moody wrote:
Hi all,
I have this procedure in my program:
procedure DisplayNode (var node:astring);
var c, i:integer;
begin
i:=SizeOf(node);
This should be length(node)
if (i=0) then begin
writeln ('node was empty / non existant');
exit;
end;
for c:=0 to i do
writeln (node[c]); // line 85
This should be
for c:=0 to i-1 do
writeln (node[c]); // line 85
Michael.
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
