Multiline parsing error

[chuacw]

The ParserDemo fails to parse the following multiline file, but works with the multiline.pas in the Snippets directory.

unit ParserConstIssue;

interface

type
  TSomeType = (dt1, dt2);

const
//  CSomeText: array[TSomeType] of string = (
//'''
//A very long message
//''',
//
//'''
//Another long message
//'''
//  );

  CSomeText = '''
Hello world;
''';

implementation

end.

[UweRaabe]

There is a bug in TmwBasePasLex.StringProc at the end of the multiline string part. The Inc(FBuffer.Run); after the case belongs to the else of the case statement. Otherwise the first character of a each line is skipped. That has serious consequences when the closing triple quotes are at the beginning of a line.

          end;
        else
          if NewLine and (FBuffer.Buf[FBuffer.Run] <> #9) and (FBuffer.Buf[FBuffer.Run] <> #32) then
            NewLine := False;
          Inc(FBuffer.Run); // <-----
      end;
    until False;

I will create a pull request shortly.