paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 06:50:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Translations unit: there is no need to check for badformat flags in CleanUp procedure anymore, they are now set/cleared in all cases in CheckFormatArguments procedure.

Browse Source 
git-svn-id: trunk@52475 -
This commit is contained in:
maxim 2016-06-11 13:28:39 +00:00
parent 1c0abfedcb
commit d91135954f
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/translations.pas
View File

@ -1758,26 +1758,18 @@ end;
procedure TPOFile.CleanUp;
var
I: Integer;
i: Integer;
aPoItem: TPOFileItem;
isFuzzy: boolean;
isBadFormat: boolean;
begin
for I := 0 to FItems.Count -1 do begin
aPoItem := TPOFileItem(FItems.Items[I]);
isFuzzy := pos(sFuzzyFlag,aPoItem.Flags) <> 0;
isBadFormat := pos(sBadFormatFlag,aPoItem.Flags) <> 0;
if not isFuzzy then begin
for i := 0 to FItems.Count -1 do begin
aPoItem := TPOFileItem(FItems.Items[i]);
isFuzzy := pos(sFuzzyFlag,aPoItem.Flags) <> 0;
if not isFuzzy then
// remove PreviousID from non-fuzzy Items
if (aPoItem.PreviousID <> '') then begin
if aPoItem.PreviousID <> '' then begin
aPoItem.PreviousID := '';
FModified := true;
end;
// remove badformat flag from non-fuzzy Items
if isBadFormat and FFormatChecked then begin
aPoItem.ModifyFlag(sBadFormatFlag,false);
FModified := true;
end;
end;
// is Context of some use ?
{if aPoItem.Context = '' then begin