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

POChecker: removed redundant ANrTotal parameter from TStat constructor

Browse Source 
git-svn-id: trunk@62059 -
This commit is contained in:
maxim 2019-10-14 23:07:59 +00:00
parent 0367ccec60
commit b1626fa251
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/pochecker/pofamilies.pp
View File

@ -102,7 +102,7 @@ Type
FNrFuzzy: Integer;
FNrErrors: Integer;
public
constructor Create(APoName: String; ANrTotal, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
constructor Create(APoName: String; ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
function ShortPoName: String;
property PoName: string read FPoName;
property NrTotal: Integer read FNrTotal;
@ -125,7 +125,7 @@ Type
function GetItems(Index: Integer): TStat;
public
procedure Clear;
procedure Add(AName: String; ANrTotal, ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
procedure Add(AName: String; ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
procedure AddItemsTo(APoFamilyStats: TPoFamilyStats);
constructor Create;
destructor Destroy; override;
@ -188,10 +188,10 @@ end;
{ TStat }
constructor TStat.Create(APoName: String; ANrTotal, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
constructor TStat.Create(APoName: String; ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
begin
FPoName := APoName;
FNrTotal := ANrTotal;
FNrTotal := ANrTranslated + ANrUntranslated + ANrFuzzy;
FNrTranslated := ANrTranslated;
FNrUntranslated := ANrUntranslated;
FNrFuzzy := ANrFuzzy;
@ -250,9 +250,9 @@ begin
FList.Clear;
end;
procedure TPoFamilyStats.Add(AName: String; ANrTotal, ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
procedure TPoFamilyStats.Add(AName: String; ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
begin
FList.Add(TStat.Create(AName, ANrTotal, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors));
FList.Add(TStat.Create(AName, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors));
end;
procedure TPoFamilyStats.AddItemsTo(APoFamilyStats: TPoFamilyStats);
@ -263,7 +263,7 @@ begin
for i := 0 to FList.Count - 1 do
begin
AStat := GetItems(i);
APoFamilyStats.Add(AStat.PoName, AStat.NrTotal, AStat.NrTranslated,
APoFamilyStats.Add(AStat.PoName, AStat.NrTranslated,
AStat.NrUntranslated, AStat.NrFuzzy, AStat.NrErrors);
end;
end;
@ -641,7 +641,7 @@ begin
NrTotal := NrTranslated + NrUntranslated + NrFuzzy;
if (NrTotal > 0) then
begin
FPoFamilyStats.Add(ChildName, NrTotal, NrTranslated, NrUntranslated, NrFuzzy, ErrorCnt);
FPoFamilyStats.Add(ChildName, NrTranslated, NrUntranslated, NrFuzzy, ErrorCnt);
end;
//debugln('TPoFamily.CheckIncompatibleFormatArgs: ',Dbgs(ErrorCount),' Errors');
end;