よくぞみつけた" . "にまつわるエラー

diff --git a/Unit1.pas b/Unit1.pas
index 41d542a..a79a642 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -299,6 +299,12 @@ begin
     Undo.ResetBack;
     inputsub(Key);
   end;
+  if Key = '.' then
+  begin
+    Undo.ResetDel;
+    Undo.ResetBack;
+    inputsub(Key);
+  end;
 end;
 
 procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);