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

lcl: fix memory leak

Browse Source 
git-svn-id: trunk@43746 -
This commit is contained in:
paul 2014-01-17 01:59:04 +00:00
parent 39ebe8df60
commit a09c2043ae
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/translations.pas
View File

@ -859,18 +859,20 @@ var
procedure UpdateFromRsj; procedure UpdateFromRsj;
var var
Parser: TJSONParser; Parser: TJSONParser;
JsonData: TJSONData; JsonData, JsonItems: TJSONData;
JsonItem: TJSONObject; JsonItem: TJSONObject;
I: Integer; I: Integer;
begin begin
Parser := TJSONParser.Create(InputLines.Text); Parser := TJSONParser.Create(InputLines.Text);
try try
JsonData := Parser.Parse.GetPath('strings'); JsonData := Parser.Parse;
for I := 0 to JsonData.Count - 1 do JsonItems := JsonData.GetPath('strings');
for I := 0 to JsonItems.Count - 1 do
begin begin
JsonItem := JsonData.Items[I] as TJSONObject; JsonItem := JsonItems.Items[I] as TJSONObject;
UpdateItem(JsonItem.Get('name'), JsonItem.Get('value')); UpdateItem(JsonItem.Get('name'), JsonItem.Get('value'));
end; end;
JsonData.Free;
finally finally
Parser.Free; Parser.Free;
end; end;