paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 08:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Jedi code format: fix issue #41071 support for delphi multiline strings.

Browse Source
This commit is contained in:
DomingoGP 2024-08-11 18:10:45 +02:00
parent d2922f876d
commit f235b30e44
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/jcf2/Parse/BuildTokenList.pas
View File

@ -496,7 +496,7 @@ end;
{ delphi 12 multiline string }
function TBuildTokenList.TryMultiLineLiteralString(const pcToken: TSourceToken): boolean;
var
liCount:integer;
liCount,liAux:integer;
liCountEnd:integer;
begin
Result := False;
@ -506,6 +506,11 @@ begin
if (liCount>=3) and ((liCount and 1)= 1) then
begin
liAux := liCount + 1;
while ForwardChar(liAux) in NativeTabSpace do
inc(liAux);
if not CharIsReturn(ForwardChar(liAux)) then
exit(False);
Result := True;
{ read the opening ''' odd number of single quotes }
pcToken.SourceCode := pcToken.SourceCode + CurrentChars(liCount);