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

LazUtils: Translations unit: simplified TPOFile.FillItem method

Browse Source 
git-svn-id: trunk@57997 -
This commit is contained in:
maxim 2018-05-21 22:41:03 +00:00
parent 0d1607b11b
commit 00b84fd256
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/lazutils/translations.pas
View File

@ -1575,10 +1575,7 @@ procedure TPOFile.FillItem(var CurrentItem: TPOFileItem; Identifier, Original,
var
FoundItem: TPOFileItem;
NewItem: boolean;
begin
NewItem := false;
FoundItem := TPOFileItem(FOriginalToItem.Data[Original]);
if CurrentItem = nil then
@ -1591,7 +1588,9 @@ begin
CurrentItem.Flags := lowercase(Flags);
CurrentItem.PreviousID := PreviousID;
CurrentItem.LineNr := LineNr;
NewItem := true;
FItems.Add(CurrentItem);
//debugln(['TPOFile.FillItem Identifier=',Identifier,' Orig="',dbgstr(OriginalValue),'" Transl="',dbgstr(TranslatedValue),'"']);
FIdentifierLowToItem[CurrentItem.IdentifierLow]:=CurrentItem;
end;
CurrentItem.Tag := FTag;
@ -1624,14 +1623,6 @@ begin
VerifyItemFormatting(CurrentItem);
if NewItem = true then
begin
FItems.Add(CurrentItem);
//debugln(['TPOFile.FillItem Identifier=',Identifier,' Orig="',dbgstr(OriginalValue),'" Transl="',dbgstr(TranslatedValue),'"']);
FIdentifierLowToItem[CurrentItem.IdentifierLow]:=CurrentItem;
end;
if Original <> '' then
begin
if (FoundItem = nil) or ((FoundItem.Translation = '') and (CurrentItem.Translation <> '')) or