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

LazUtils: translations.pas unit: remove deprecated TPOFile.Add method. There is no point in keeping it, because it is unused and it will need to be modified during FModuleList cleanup, so its behavior will change anyway. TPOFile.FillItem method should be used instead.

Browse Source 
git-svn-id: trunk@57425 -
This commit is contained in:
maxim 2018-02-28 22:46:51 +00:00
parent 74f07e0169
commit 2e579f6b18
1 changed files with 0 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/lazutils/translations.pas
View File

@ -156,8 +156,6 @@ type
constructor Create(AStream: TStream; Full: boolean=false; AllowChangeFuzzyFlag: boolean=true);
destructor Destroy; override;
procedure ReadPOText(const Txt: string);
procedure Add(const Identifier, OriginalValue, TranslatedValue, Comments,
Context, Flags, PreviousID: string; SetFuzzy: boolean = false; LineNr: Integer = -1); deprecated 'FillItem method should be used instead';
function Translate(const Identifier, OriginalValue: String): String;
Property CharSet: String read FCharSet;
procedure Report;
@ -1074,37 +1072,6 @@ begin
UpdateCounters(Result, True);
end;
procedure TPOFile.Add(const Identifier, OriginalValue, TranslatedValue,
Comments, Context, Flags, PreviousID: string; SetFuzzy: boolean = false; LineNr: Integer = -1);
var
Item: TPOFileItem;
p: Integer;
begin
if (not FAllEntries) and (TranslatedValue='') then exit;
Item:=TPOFileItem.Create(lowercase(Identifier),OriginalValue,TranslatedValue);
Item.Comments:=Comments;
Item.Context:=Context;
Item.Flags:=Flags;
if SetFuzzy = true then
Item.ModifyFlag(sFuzzyFlag, true);
Item.PreviousID:=PreviousID;
Item.Tag:=FTag;
Item.LineNr := LineNr;
UpdateCounters(Item, False);
FItems.Add(Item);
//debugln(['TPOFile.Add Identifier=',Identifier,' Orig="',dbgstr(OriginalValue),'" Transl="',dbgstr(TranslatedValue),'"']);
FIdentifierLowToItem[Item.IdentifierLow]:=Item;
P := Pos('.', Identifier);
if P>0 then
FIdentLowVarToItem.Add(copy(Item.IdentifierLow, P+1, Length(Item.IdentifierLow)), Item);
if OriginalValue<>'' then
FOriginalToItem.Add(OriginalValue,Item);
end;
procedure TPOFile.UpdateCounters(Item: TPOFileItem; Removed: Boolean);
var
IncrementBy: Integer;