From a09c2043ae3dad60b114b3b21080266cdc3519f5 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 17 Jan 2014 01:59:04 +0000
Subject: [PATCH] lcl: fix memory leak

git-svn-id: trunk@43746 -
---
 lcl/translations.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lcl/translations.pas b/lcl/translations.pas
index 78d6185b94..72aa8d0246 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -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;