• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revisiond84eaa77cffe8799644a1c1943ed2b8c60e5df48 (tree)
Time2007-07-21 10:56:29
Authorh677 <h677>
Commiterh677

Log Message

入力アシストのキー更新時にも重複チェックを入れた。

Change Summary

Incremental Difference

--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -177,15 +177,20 @@ begin
177177 if (Length(KeyNameEdit.Text) = 0) then begin
178178 ShowMessage('ƒL[–¼‚𖳂µ‚É‚Í‚Å‚«‚Ü‚¹‚ñB');
179179 end else begin
180- resWord := TResistWord(GikoListView1.Selected.Data);
181- resWord.SetKey(KeyNameEdit.Text);
182- resWord.SetCategory(CategoryNameComboBox.Text);
183- resWord.SetText(TextMemo.Text);
184- // ˆê——‚̍XV
185- GikoListView1.Selected.Caption := resWord.GetKey;
186- GikoListView1.Selected.SubItems[0] := resWord.GetCategory;
187- SetCategory(CategoryNameComboBox);
188- GikoListView1.AlphaSort;
180+ if (not InputAssistDM.IsDupulicate(
181+ KeyNameEdit.Text, CategoryNameComboBox.Text) ) then begin
182+ resWord := TResistWord(GikoListView1.Selected.Data);
183+ resWord.SetKey(KeyNameEdit.Text);
184+ resWord.SetCategory(CategoryNameComboBox.Text);
185+ resWord.SetText(TextMemo.Text);
186+ // ˆê——‚̍XV
187+ GikoListView1.Selected.Caption := resWord.GetKey;
188+ GikoListView1.Selected.SubItems[0] := resWord.GetCategory;
189+ SetCategory(CategoryNameComboBox);
190+ GikoListView1.AlphaSort;
191+ end else begin
192+ ShowMessage('“¯ˆê‚̃L[–¼EƒJƒeƒSƒŠ–¼‚ÅŠù‚É“o˜^Ï‚Ý‚Å‚·B');
193+ end;
189194 end;
190195 end;
191196 end;
--- a/InputAssistDataModule.pas
+++ b/InputAssistDataModule.pas
@@ -408,7 +408,6 @@ end;
408408 function TInputAssistDM.IsDupulicate(Key: String; Category: String): Boolean;
409409 var
410410 i : Integer;
411-// resWord : TResistWord;
412411 begin
413412 // ‚±‚̃ƒ\ƒbƒh‚ł́Aƒ\[ƒgÏ‚Ý‚Æ‚ÍŒÀ‚ç‚È‚¢‚̂ŁA‘S‚ẴL[‚ð’Tõ‚µ‚Ä‚¢‚é
414413 Result := False;