区切りのコミット

[json-checker/json_checker.git] / Unit1.pas

diff --git a/Unit1.pas b/Unit1.pas
index c67167f..6c14800 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -76,6 +76,7 @@ type
     procedure loop(item: TTreeNode; JSON: TJSONObject);
     procedure arrloop(item: TTreeNode; arr: TJSONArray);
     function returnChar(c: TIndxChar): Char;
+    procedure inputsub(Key: Char);
   public
     { Public \90é\8c¾ }
   end;
@@ -151,6 +152,20 @@ begin
   Undo.Free;
 end;
 
+procedure TForm1.inputsub(Key: Char);
+begin
+    delstr := Memo1.SelText;
+    delpos := Memo1.SelStart;
+    charmodi := false;
+    if delstr <> '' then
+      Undo.Deleted(delstr, Memo1.SelStart, false);
+    if Key = Char(VK_RETURN) then
+      Undo.Returned(delpos)
+    else
+      Undo.Inputted(Key, delpos);
+    Undo.UpCount;
+end;
+
 procedure TForm1.loop(item: TTreeNode; JSON: TJSONObject);
 var
   i: integer;
@@ -230,16 +245,8 @@ begin
           delstr := Memo1.Text[Memo1.SelStart]
         else
           delstr := Memo1.SelText;
-    VK_RETURN:
-      ;
   else
-    delstr := Memo1.SelText;
-    delpos := Memo1.SelStart;
-    charmodi := false;
-    if delstr <> '' then
-      Undo.Deleted(delstr, Memo1.SelStart, false);
-    Undo.Inputted(Key, delpos);
-    Undo.UpCount;
+    inputsub(Key);
   end;
 end;