paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed parsing of todo items without semicolon, support was removed in r13010 #42edb792e6 (issue #13684)

Browse Source 
git-svn-id: trunk@19939 -
This commit is contained in:
vincents 2009-05-12 11:04:23 +00:00
parent 3005b7d87f
commit 1994036cf2
1 changed files with 36 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
ide/todolist.pas
View File

@ -39,6 +39,14 @@
{#done -oOwnerName -cCategoryName: Todo_text}
the -o and -c tags are optional.
If the -o and -c tags are not used, then the variant without semicolon is
allowed too:
{TODO Todo_text}
{DONE Todo_text}
{#todo Todo_text}
{#done Todo_text}
Sub comments in nested comments are ignored.
*)
@ -413,35 +421,38 @@ begin
aTLFile.Add(Result);
end;
n := 1;
TempStr := '';
Strlen := Length(ParsingString);
// Parse priority, owner and category
while (n <= StrLen) and (ParsingString[n]<>cSemiColon) do
if Pos(cSemiColon, ParsingString)>0 then
begin
aChar := ParsingString[n];
// Parse priority, owner and category
n := 1;
TempStr := '';
Strlen := Length(ParsingString);
// Add char to temporary string
if (aChar<>cSemiColon) and (aChar<>cWhiteSpace) then
TempStr := TempStr + aChar
// Process temporary string
else
while (n <= StrLen) and (ParsingString[n]<>cSemiColon) do
begin
SetItemFields(Result, TempStr);
TempStr := '';;
end;
inc(N);
end;//while
SetItemFields(Result, TempStr);
Delete(ParsingString, 1, n);
aChar := ParsingString[n];
// Add char to temporary string
if (aChar<>cSemiColon) and (aChar<>cWhiteSpace) then
TempStr := TempStr + aChar
// Process temporary string
else
begin
SetItemFields(Result, TempStr);
TempStr := '';;
end;
inc(N);
end;//while
SetItemFields(Result, TempStr);
Delete(ParsingString, 1, n);
end;
// Set item text
Result.Text := ParsingString;