paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 05:58:14 +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;
var
Parser: TJSONParser;
JsonData: TJSONData;
JsonData, JsonItems: TJSONData;
JsonItem: TJSONObject;
I: Integer;
begin
Parser := TJSONParser.Create(InputLines.Text);
try
JsonData := Parser.Parse.GetPath('strings');
for I := 0 to JsonData.Count - 1 do
JsonData := Parser.Parse;
JsonItems := JsonData.GetPath('strings');
for I := 0 to JsonItems.Count - 1 do
begin
JsonItem := JsonData.Items[I] as TJSONObject;
JsonItem := JsonItems.Items[I] as TJSONObject;
UpdateItem(JsonItem.Get('name'), JsonItem.Get('value'));
end;
JsonData.Free;
finally
Parser.Free;
end;