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

git-svn-id: trunk@19939 -
This commit is contained in:
vincents 2009-05-12 11:04:23 +00:00
parent 3005b7d87f
commit 1994036cf2

View File

@ -40,6 +40,14 @@
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.
*)
{#todo options }
@ -413,11 +421,13 @@ begin
aTLFile.Add(Result);
end;
if Pos(cSemiColon, ParsingString)>0 then
begin
// Parse priority, owner and category
n := 1;
TempStr := '';
Strlen := Length(ParsingString);
// Parse priority, owner and category
while (n <= StrLen) and (ParsingString[n]<>cSemiColon) do
begin
@ -441,6 +451,7 @@ begin
SetItemFields(Result, TempStr);
Delete(ParsingString, 1, n);
end;
// Set item text
Result.Text := ParsingString;