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

PoChecker: less verbosity.

Browse Source 
git-svn-id: trunk@46483 -
This commit is contained in:
bart 2014-10-08 21:56:16 +00:00
parent 226016dbd0
commit 5e184b8492
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pochecker/pofamilylists.pp
View File

@ -80,8 +80,8 @@ begin
begin
if (ALang <> langAll) then
ChildName := ChangeFileExt(MasterName, '.' + ALang + '.po');
debugln('TPoFamilyList.Create: i = ',DbgS(i),' Adding TPoFamily.Create(''',ExtractFileName(MasterName),
''',',ExtractFileName(ChildName),''')');
//debugln('TPoFamilyList.Create: i = ',DbgS(i),' Adding TPoFamily.Create(''',ExtractFileName(MasterName),
// ''',',ExtractFileName(ChildName),''')');
if (ALang = langAll) or FileExistsUtf8(ChildName) then
begin
APoFamily := TPoFamily.Create(MasterName, ChildName);
@ -97,7 +97,7 @@ end;
destructor TPoFamilyList.Destroy;
begin
debugln('TPoFamilyList.Destroy: FList.Count = ',DbgS(FList.Count));
//debugln('TPoFamilyList.Destroy: FList.Count = ',DbgS(FList.Count));
PoFamilyStats.Free;
FList.Free;
inherited Destroy;