盒子论坛 v2.1

有时报错：Project YXTest.exe raised exception class $C0000005 with message 'c0000005' ACCESS_VIOLATION'.

追踪发现：
[quote]procedure TSourceContext.IncSrc;
begin
  if CurrentChar = #10 then
  begin
    Inc(LineNum);
    ColNum := 1;
  end
  else
    Inc(ColNum);
  Inc(CodeIndex);
  CurrentChar := Code[CodeIndex];
{$IFDEF DEBUG}
  currentCode := PChar(@Code[CodeIndex]);
{$ENDIF}
end;[/quote]

就是Code[CodeIndex]出现异常，原本想研读一下您的代码，看了会，真一时看不懂，所以恳求帮助，具体这个是什么原因，万分感激！
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2017/4/19 8:38:51

1楼：

每个人都呼唤武大侠，他要累倒咯。。。
----------------------------------------------
(C)(P)Flying Wang

作者：

fausten (fausten)	★☆☆☆☆	-
	盒子活跃会员

2017/4/19 9:03:14

2楼：

内存越界都可能提示这个错误，需要自己从多个角度尝试解决问题，不要有问题了就问人。
----------------------------------------------
-

作者：

jackalan (nVicen)	★☆☆☆☆	-
	盒子活跃会员

2017/4/19 13:17:59

3楼：

Code越界了呗，打印一下codeindex，在打印一下code的上下界
----------------------------------------------
简单做人，认真做事。

作者：

phper2000 (phper2000)	▲▲▲▲△	-
	普通会员

2017/4/19 15:00:22

4楼：

非常感谢各位朋友的回复帮助！

不过我当然清楚CodeIndex>Length(Code)越界了，然而如果只是写如下：
if CodeIndex<=Length(Code) then
begin
CurrentChar := Code[CodeIndex];
{$IFDEF DEBUG}
currentCode := PChar(@Code[CodeIndex]);
{$ENDIF}
end;

但这样写，会进入其他函数的死循环，所有才求教武稀松的
----------------------------------------------
-

作者：

phper2000 (phper2000)	▲▲▲▲△	-
	普通会员

2017/4/19 15:03:16

5楼：

另外，如果这样写
var
  s: String;
  ch: Char;
begin
  s:= '1234';
  ch := s[100];
end;

即便ch := s[1000];
这样的代码也不会报错呀!

我用的是Delphi 10.1 Berlin
----------------------------------------------
-

作者：

phper2000 (phper2000)	▲▲▲▲△	-
	普通会员

2017/4/19 15:34:27

6楼：

现在应该好了！

procedure TSourceContext.IncSrc;
var
  len: Integer;
begin
  if CurrentChar = #10 then
  begin
    Inc(LineNum);
    ColNum := 1;
  end
  else
    Inc(ColNum);
  Inc(CodeIndex);
  len := Length(Code);
  if CodeIndex<=len then
  begin
    CurrentChar := Code[CodeIndex];
    {$IFDEF DEBUG}
      currentCode := PChar(@Code[CodeIndex]);
    {$ENDIF}
  end else
    CurrentChar := #0;
end;

function TSourceContext.ReadStr(UntilChars: TSysCharSet): string;
加上：
if CurrentChar = #0 then
      Break;
----------------------------------------------
-

信息

登陆以后才能回复