paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 21:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: translations.pas unit: reduced lowercase function calls

Browse Source 
git-svn-id: trunk@57367 -
This commit is contained in:
maxim 2018-02-24 23:00:57 +00:00
parent afe1fc7762
commit 32888ff513
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/translations.pas
View File

@ -1132,11 +1132,11 @@ begin
//Load translation only if it exists and is NOT fuzzy. //Load translation only if it exists and is NOT fuzzy.
//This matches gettext behaviour and allows to avoid a lot of crashes related //This matches gettext behaviour and allows to avoid a lot of crashes related
//to formatting arguments mismatches. //to formatting arguments mismatches.
if (Item<>nil) and (pos(sFuzzyFlag, lowercase(Item.Flags))=0) if (Item<>nil) and (pos(sFuzzyFlag, Item.Flags)=0)
//Load translation only if it is not flagged as badformat. //Load translation only if it is not flagged as badformat.
//This allows to avoid even more crashes related //This allows to avoid even more crashes related
//to formatting arguments mismatches. //to formatting arguments mismatches.
and (pos(sBadFormatFlag, lowercase(Item.Flags))=0) and (pos(sBadFormatFlag, Item.Flags)=0)
then begin then begin
Result:=Item.Translation; Result:=Item.Translation;
if Result='' then if Result='' then
@ -1683,7 +1683,7 @@ begin
CurrentItem:=TPOFileItem.Create(lowercase(Identifier), Original, Translation); CurrentItem:=TPOFileItem.Create(lowercase(Identifier), Original, Translation);
CurrentItem.Comments := Comments; CurrentItem.Comments := Comments;
CurrentItem.Context := Context; CurrentItem.Context := Context;
CurrentItem.Flags := Flags; CurrentItem.Flags := lowercase(Flags);
CurrentItem.PreviousID := PreviousID; CurrentItem.PreviousID := PreviousID;
CurrentItem.LineNr := LineNr; CurrentItem.LineNr := LineNr;
NewItem := true; NewItem := true;