From: yamat0jp <yamat0jp@yahoo.co.jp>
Date: Sat, 25 Sep 2021 11:41:48 +0000 (+0900)
Subject: Backspace一部修正
X-Git-Url: http://git.osdn.net/view?p=json-checker%2Fjson_checker.git;a=commitdiff_plain;h=d03894c2d212c20878865256ee74ac324f835790

Backspace一部修正
---

diff --git a/Unit1.pas b/Unit1.pas
index b345a12..fc39c30 100644
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -263,6 +263,8 @@ begin
 end;
 
 procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
+var
+  i: integer;
 begin
   case Ord(Key) of
     VK_BACK:
@@ -277,11 +279,17 @@ begin
           Exit;
         end
         else if Memo1.SelLength = 0 then
-          delstr := Memo1.Text[Memo1.SelStart]
+        begin
+          delstr := Memo1.Text[Memo1.SelStart];
+          i:=Memo1.SelStart-1;
+        end
         else
+        begin
           delstr := Memo1.SelText;
+          i:=Memo1.SelStart;
+        end;
         Undo.ResetDel;
-        Undo.Deleted(delstr, Memo1.SelStart-1, false);
+        Undo.Deleted(delstr, i, false);
         Undo.UpBackCnt;
       end;
     VK_DELETE:
diff --git a/json_checker.dproj b/json_checker.dproj
index 348f24e..5ea5979 100644
--- a/json_checker.dproj
+++ b/json_checker.dproj
@@ -5,7 +5,7 @@
         <FrameworkType>VCL</FrameworkType>
         <MainSource>json_checker.dpr</MainSource>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Application</AppType>