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

lcl: fix memory leak in translations unit

Browse Source 
git-svn-id: trunk@17677 -
This commit is contained in:
paul 2008-12-04 01:45:00 +00:00
parent 758072e721
commit 5775f67b6e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/translations.pas
View File

@ -4,7 +4,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
@ -351,7 +351,7 @@ begin
po:=nil;
try
po:=TPOFile.Create(AFilename);
result:=TranslateUnitResourceStrings(ResUnitName,TPOFile.Create(AFilename));
result:=TranslateUnitResourceStrings(ResUnitName,po);
finally
po.free;
end;