Re: [fpc-pascal] EAccessViolation

[Michael Van Canneyt]

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  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal