paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 10:09:14 +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

2
lcl/translations.pas
View File

@ -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;