冒険の書->忍法帖

[gikonavigoeson/gikonavi.git] / InputAssist.pas

diff --git a/InputAssist.pas b/InputAssist.pas
index 5f23e49..3f30c28 100644 (file)
--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -189,12 +189,19 @@ var
 begin
        if GikoListView1.Selected <> nil then begin
        if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin
-            if (not InputAssistDM.IsDupulicate(
+            resWord := TResistWord(GikoListView1.Selected.Data);
+            // \95Ï\8dX\91O\82Ì\83L\81[\81^\83J\83e\83S\83\8a\82Æ\93¯\88ê\82à\82µ\82­\82Í\81A\91¼\82Æ\8fd\95¡\96³\82µ
+            if ((resWord.GetKey = KeyNameEdit.Text)
+                and (resWord.GetCategory = CategoryNameComboBox.Text)) or
+                (not InputAssistDM.IsDupulicate(
                        KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
-                       resWord := TResistWord(GikoListView1.Selected.Data);
-                       resWord.SetKey(KeyNameEdit.Text);
-                           resWord.SetCategory(CategoryNameComboBox.Text);
-                       resWord.SetText(TextMemo.Text);
+                resWord.SetCategory(CategoryNameComboBox.Text);
+                resWord.SetText(TextMemo.Text);
+                // \83L\81[\82ª\95Ï\82í\82é\82Æ\82«\82Í\81AChangeKey\82ð\8cÄ\82Ô
+                if (resWord.GetKey <> KeyNameEdit.Text) then begin
+                               resWord.SetKey(KeyNameEdit.Text);
+                    InputAssistDM.ChangeKey(resWord);
+                end;
                        // \88ê\97\97\82Ì\8dX\90V
                            GikoListView1.Selected.Caption := resWord.GetKey;
                        GikoListView1.Selected.SubItems[0] := resWord.GetCategory;