syntax-error - 错误: illegal Expression

Question

我有以下代码:

tInteger :
   begin
       if(jinfo<maxinfo) then
        begin
          jinfo:=jinfo+1;
          lokasi[jinfo]:=ScanStr;
          WRITE(ResFile,jinfo:4);
        end;
        WRITE(ResFile,'   ');
        WRITE(ResFile,inum);
   end;`

   BEGIN
      ScanStr:='';
      REPEAT
           ScanStr:=ScanStr+cc;
           ReadChar;
      UNTIL NOT (cc in ['a'..'z','A'..'Z','0'..'9','_']);
      {Test KeyWord}
      TampStr:=UpperCase(ScanStr);
      i:=1; j:=JmlKeyWord; {index pencarian keyword dalam tabel}
      REPEAT
         k:=(i+j) DIV 2;
         IF TampStr<=KeyWord[k] THEN j:=k-1;
         IF TampStr>=KeyWord[k] THEN i:=k+1;
      UNTIL i>j;

      IF i-j>1 THEN
      BEGIN k:=k+ORD(tKurungTutup); Token := KeyToken; END
      ELSE
      BEGIN Token := tIdentifier;
      ScanStr:=COPY(ScanStr,1,10); END;
   end;

但是脚本给了我这个错误:

error:illegal expression
error:ordinal expression expected
fatal: Syntax Error,: Expected but identifier SCANSTR found

我不明白此错误消息。我确定这个脚本是正确的。

Answer 1

“脚本”(不是脚本-它是代码)是错误的。

您在case语句中:

tInteger :
   begin
       if(jinfo<maxinfo) then
       begin
         jinfo:=jinfo+1;
         lokasi[jinfo]:=ScanStr;
         WRITE(ResFile,jinfo:4);
       end;
       WRITE(ResFile,'   ');
       WRITE(ResFile,inum);
   end;

此后唯一有效的东西是另一个 case分支，可选的 else子句或最终的 end。

case TheThing of
  ThingA:
    begin
      // Code here
    end;
  ThingB:
    begin
      // Code here
    end;
else
    // Else code here
end;

您还有另一个完整的 begin..end块，这是无效的语法。

BEGIN
  ScanStr:='';
  REPEAT
       ScanStr:=ScanStr+cc;
       ReadChar;
  UNTIL NOT (cc in ['a'..'z','A'..'Z','0'..'9','_']);
  {Test KeyWord}
  TampStr:=UpperCase(ScanStr);
  i:=1; j:=JmlKeyWord; {index pencarian keyword dalam tabel}
  REPEAT
     k:=(i+j) DIV 2;
     IF TampStr<=KeyWord[k] THEN j:=k-1;
     IF TampStr>=KeyWord[k] THEN i:=k+1;
  UNTIL i>j;

  IF i-j>1 THEN
  BEGIN k:=k+ORD(tKurungTutup); Token := KeyToken; END
  ELSE
  BEGIN Token := tIdentifier;
  ScanStr:=COPY(ScanStr,1,10); END;
end;