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

codetools: small optimization

Browse Source 
git-svn-id: trunk@48933 -
This commit is contained in:
mattias 2015-05-05 16:38:20 +00:00
parent 87d0463439
commit 400ded299e
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/codetoolsfpcmsgs.pas
View File

@ -667,18 +667,16 @@ begin
Item.Index:=FItems.Count;
FItems.Add(Item);
fSortedForID.Add(Item);
case Item.ID of
1012: fSpecialItems[fmisiFatal]:=Item;
1013: fSpecialItems[fmisiError]:=Item;
1014: fSpecialItems[fmisiWarning]:=Item;
1015: fSpecialItems[fmisiNote]:=Item;
1016: fSpecialItems[fmisiHint]:=Item;
end;
end;
end;
inc(Line);
end;
CreateArray;
fSpecialItems[fmisiFatal]:=FindWithID(1012);
fSpecialItems[fmisiError]:=FindWithID(1013);
fSpecialItems[fmisiWarning]:=FindWithID(1014);
fSpecialItems[fmisiNote]:=FindWithID(1015);
fSpecialItems[fmisiHint]:=FindWithID(1016);
end;
procedure TFPCMsgFile.LoadFromText(s: string);