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

LazUtils: slightly improved code in translations.pas without changing logic

Browse Source 
git-svn-id: trunk@57317 -
This commit is contained in:
maxim 2018-02-16 23:02:09 +00:00
parent d1e2b7bf71
commit 97eebaa8d9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/translations.pas
View File

@ -1612,7 +1612,6 @@ begin
end; end;
end; end;
Item.Original:=Original; Item.Original:=Original;
Item.Tag:=FTag;
end end
else // in this case new item will be added else // in this case new item will be added
FModified := true; FModified := true;
@ -1684,11 +1683,12 @@ begin
CurrentItem.Context := Context; CurrentItem.Context := Context;
CurrentItem.Flags := Flags; CurrentItem.Flags := Flags;
CurrentItem.PreviousID := PreviousID; CurrentItem.PreviousID := PreviousID;
CurrentItem.Tag := FTag;
CurrentItem.LineNr := LineNr; CurrentItem.LineNr := LineNr;
NewItem := true; NewItem := true;
end; end;
CurrentItem.Tag := FTag;
if FoundItem <> nil then if FoundItem <> nil then
begin begin
if FoundItem.IdentifierLow<>CurrentItem.IdentifierLow then if FoundItem.IdentifierLow<>CurrentItem.IdentifierLow then