paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 13:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

ToDoList: Improve parsing.

Browse Source
This commit is contained in:
Juha 2025-07-01 15:10:13 +03:00
parent 3807ad9867
commit 52183ce50b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/todolist/todolistcore.pas
View File

@ -248,14 +248,15 @@ begin
else begin lStartLen := 0; lEndLen := 0; end; // A dedicated .todo file
end;
if lStartLen > 0 then begin
while aCommentStr[lStartLen+1] in [' ',#9] do
while (lStartLen < Length(aCommentStr)) and (aCommentStr[lStartLen+1] in [' ',#9]) do
Inc(lStartLen);
Delete(aCommentStr, 1, lStartLen);
end;
if lEndLen > 0 then begin
while aCommentStr[Length(aCommentStr)-lEndLen] in [' ',#9] do
lStartLen := Length(aCommentStr); // Reuse lStartLen.
while (lEndLen < lStartLen) and (aCommentStr[lStartLen-lEndLen] in [' ',#9]) do
Inc(lEndLen);
SetLength(aCommentStr, Length(aCommentStr)-lEndLen);
SetLength(aCommentStr, lStartLen-lEndLen);
end;
aCommentStr := TextToSingleLine(aCommentStr);
@ -359,7 +360,7 @@ procedure TTLScannedFile.AddToDoItem(aCommentStr: string; aCodePos: TPoint);
var
Item: TTodoItem;
begin
debugln(['TTLScannedFile.AddToDoItem aCommentStr=', aCommentStr, ', aCodePos=', aCodePos.X,':',aCodePos.Y]);
//debugln(['TTLScannedFile.AddToDoItem aCommentStr=', aCommentStr, ', aCodePos=', aCodePos.X,':',aCodePos.Y]);
Item := CreateToDoItem(aCommentStr, aCodePos);
if Assigned(Item) then begin
Item.Filename := FRealFilename;