paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 19:49:16 +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 } { delphi 12 multiline string }
function TBuildTokenList.TryMultiLineLiteralString(const pcToken: TSourceToken): boolean; function TBuildTokenList.TryMultiLineLiteralString(const pcToken: TSourceToken): boolean;
var var
liCount:integer; liCount,liAux:integer;
liCountEnd:integer; liCountEnd:integer;
begin begin
Result := False; Result := False;
@ -506,6 +506,11 @@ begin
if (liCount>=3) and ((liCount and 1)= 1) then if (liCount>=3) and ((liCount and 1)= 1) then
begin begin
liAux := liCount + 1;
while ForwardChar(liAux) in NativeTabSpace do
inc(liAux);
if not CharIsReturn(ForwardChar(liAux)) then
exit(False);
Result := True; Result := True;
{ read the opening ''' odd number of single quotes } { read the opening ''' odd number of single quotes }
pcToken.SourceCode := pcToken.SourceCode + CurrentChars(liCount); pcToken.SourceCode := pcToken.SourceCode + CurrentChars(liCount);