From 6f01c07364f1bd56d504f1aeb35498f8478f8eed Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Tue, 17 Jul 2018 18:44:24 +0000
Subject: [PATCH] * Reset code before regenerating code

git-svn-id: trunk@58551 -
---
 tools/jsonviewer/frmcreatecode.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tools/jsonviewer/frmcreatecode.pp b/tools/jsonviewer/frmcreatecode.pp
index c79531409a..04b39b082f 100644
--- a/tools/jsonviewer/frmcreatecode.pp
+++ b/tools/jsonviewer/frmcreatecode.pp
@@ -83,6 +83,7 @@ begin
     exit;
     end;
   FormToGenerator;
+  FGenerator.Code.Clear;
   FGenerator.Execute;
   FGenerator.Code.SaveToFile(FECode.FileName);
   ModalResult:=mrOK;
@@ -93,6 +94,7 @@ begin
   If PCCode.ActivePage=TSCode then
     begin
     FormToGenerator;
+    FGenerator.Code.Clear;
     FGenerator.Execute;
     SECode.Lines:=FGenerator.Code;
     end;