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;