| 189 |
begin |
begin |
| 190 |
if GikoListView1.Selected <> nil then begin |
if GikoListView1.Selected <> nil then begin |
| 191 |
if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin |
if (ValidateKey(KeyNameEdit.Text, CategoryNameComboBox.Text)) then begin |
| 192 |
if (not InputAssistDM.IsDupulicate( |
resWord := TResistWord(GikoListView1.Selected.Data); |
| 193 |
|
// 変更前のキー/カテゴリと同一もしくは、他と重複無し |
| 194 |
|
if ((resWord.GetKey = KeyNameEdit.Text) |
| 195 |
|
and (resWord.GetCategory = CategoryNameComboBox.Text)) or |
| 196 |
|
(not InputAssistDM.IsDupulicate( |
| 197 |
KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin |
KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin |
| 198 |
resWord := TResistWord(GikoListView1.Selected.Data); |
resWord.SetCategory(CategoryNameComboBox.Text); |
| 199 |
resWord.SetKey(KeyNameEdit.Text); |
resWord.SetText(TextMemo.Text); |
| 200 |
resWord.SetCategory(CategoryNameComboBox.Text); |
// キーが変わるときは、ChangeKeyを呼ぶ |
| 201 |
resWord.SetText(TextMemo.Text); |
if (resWord.GetKey <> KeyNameEdit.Text) then begin |
| 202 |
|
resWord.SetKey(KeyNameEdit.Text); |
| 203 |
|
InputAssistDM.ChangeKey(resWord); |
| 204 |
|
end; |
| 205 |
// 一覧の更新 |
// 一覧の更新 |
| 206 |
GikoListView1.Selected.Caption := resWord.GetKey; |
GikoListView1.Selected.Caption := resWord.GetKey; |
| 207 |
GikoListView1.Selected.SubItems[0] := resWord.GetCategory; |
GikoListView1.Selected.SubItems[0] := resWord.GetCategory; |