Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/InputAssist.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 177 |
if (Length(KeyNameEdit.Text) = 0) then begin |
if (Length(KeyNameEdit.Text) = 0) then begin |
| 178 |
ShowMessage('キー名を無しにはできません。'); |
ShowMessage('キー名を無しにはできません。'); |
| 179 |
end else begin |
end else begin |
| 180 |
resWord := TResistWord(GikoListView1.Selected.Data); |
if (not InputAssistDM.IsDupulicate( |
| 181 |
resWord.SetKey(KeyNameEdit.Text); |
KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin |
| 182 |
resWord.SetCategory(CategoryNameComboBox.Text); |
resWord := TResistWord(GikoListView1.Selected.Data); |
| 183 |
resWord.SetText(TextMemo.Text); |
resWord.SetKey(KeyNameEdit.Text); |
| 184 |
// 一覧の更新 |
resWord.SetCategory(CategoryNameComboBox.Text); |
| 185 |
GikoListView1.Selected.Caption := resWord.GetKey; |
resWord.SetText(TextMemo.Text); |
| 186 |
GikoListView1.Selected.SubItems[0] := resWord.GetCategory; |
// 一覧の更新 |
| 187 |
SetCategory(CategoryNameComboBox); |
GikoListView1.Selected.Caption := resWord.GetKey; |
| 188 |
GikoListView1.AlphaSort; |
GikoListView1.Selected.SubItems[0] := resWord.GetCategory; |
| 189 |
|
SetCategory(CategoryNameComboBox); |
| 190 |
|
GikoListView1.AlphaSort; |
| 191 |
|
end else begin |
| 192 |
|
ShowMessage('同一のキー名・カテゴリ名で既に登録済みです。'); |
| 193 |
|
end; |
| 194 |
end; |
end; |
| 195 |
end; |
end; |
| 196 |
end; |
end; |
|
|
Legend:
| Removed from v.1.8 |
|
| changed lines |
| |
Added in v.1.9 |
|
|
|