From a443da713c3270896dd5dc02334c424dc044907f Mon Sep 17 00:00:00 2001
From: yamat0jp <yamat0jp@yahoo.co.jp>
Date: Thu, 23 Sep 2021 16:08:06 +0900
Subject: [PATCH] =?utf8?q?=E3=83=A1=E3=83=83=E3=82=BB=E3=83=BC=E3=82=B8?=
 =?utf8?q?=E3=81=A7=E5=AF=BE=E5=87=A6=E3=82=92=E4=BF=83=E3=81=99=E3=80=80?=
 =?utf8?q?=E3=82=82=E3=81=86=E3=82=84=E3=81=91=E3=81=A3=E3=81=B1=E3=81=A1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Unit1.dfm | 16 ++++++++++++++--
 Unit1.pas | 14 +++++++++++---
 2 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/Unit1.dfm b/Unit1.dfm
index 0add4aa..b62651e 100644
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -145,7 +145,8 @@ object Form1: TForm1
     TabOrder = 4
     Tabs.Strings = (
       #12504#12523#12503
-      #12496#12540#12472#12519#12531#24773#22577)
+      #12496#12540#12472#12519#12531#24773#22577
+      #12498#12531#12488)
     TabIndex = 0
     Visible = False
     OnChange = TabControl1Change
@@ -188,12 +189,23 @@ object Form1: TForm1
       Visible = False
       WordWrap = False
     end
+    object Memo5: TMemo
+      Left = 600
+      Top = 24
+      Width = 185
+      Height = 89
+      Lines.Strings = (
+        'JSONObject'#12434#12493#12473#12488#12377#12427#38555#12395#12399#37197#21015#20869#12395#20837#12428#12390#12367#12384#12373#12356#12290)
+      TabOrder = 3
+      Visible = False
+      WordWrap = False
+    end
   end
   object ImageList1: TImageList
     Left = 200
     Top = 88
     Bitmap = {
-      494C010104000800400010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010104000800480010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000002000000001002000000000000020
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
diff --git a/Unit1.pas b/Unit1.pas
index 1ed57e8..2092920 100644
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -57,6 +57,7 @@ type
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
     ToolButton10: TToolButton;
+    Memo5: TMemo;
     procedure ToolButton2Click(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
     procedure TabControl1Change(Sender: TObject);
@@ -120,6 +121,9 @@ begin
     begin
       TreeView1.Items.AddChild(item, 'error');
       Showmessage('“à•”ƒGƒ‰[‚É‚æ‚è’†’f‚µ‚Ü‚µ‚½');
+      TabControl1.TabIndex:=2;
+      TabControl1Change(nil);
+      TabControl1.Show;
       Exit;
     end
     else
@@ -154,10 +158,14 @@ end;
 
 procedure TForm1.TabControl1Change(Sender: TObject);
 begin
-  if TabControl1.TabIndex = 0 then
-    Memo2.Text := Memo3.Text
-  else
+  case TabControl1.TabIndex of
+  0:
+    Memo2.Text := Memo3.Text;
+  1:
     Memo2.Text := Memo4.Text;
+  2:
+    Memo2.Text:=Memo5.Text;
+  end;
 end;
 
 procedure TForm1.ToolButton2Click(Sender: TObject);
-- 
2.11.0