重複処理をメソッド化

[gikonavigoeson/gikonavi.git] / InputAssist.pas

diff --git a/InputAssist.pas b/InputAssist.pas
index aab8a6f..118a637 100644 (file)
--- a/InputAssist.pas
+++ b/InputAssist.pas
@@ -13,8 +13,6 @@ type
     Panel2: TPanel;
     GikoListView1: TGikoListView;
     Panel3: TPanel;
-    KeyNameEdit: TLabeledEdit;
-    CategoryNameEdit: TLabeledEdit;
        Panel4: TPanel;
        TextMemo: TMemo;
     ColumnImageList: TImageList;
@@ -38,6 +36,11 @@ type
     InsertButton: TButton;
     InsertButtonAction: TAction;
     CloseAction: TAction;
+    KeyPanel: TPanel;
+    KeyNameEdit: TLabeledEdit;
+    Splitter: TSplitter;
+    CategoryPanel: TPanel;
+    CategoryNameEdit: TLabeledEdit;
     procedure FormCreate(Sender: TObject);
     procedure GikoListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -141,11 +144,16 @@ begin
        if (Length(KeyNameEdit.Text) = 0) then begin
                ShowMessage('\83L\81[\96¼\82ð\90Ý\92è\82µ\82Ä\82­\82¾\82³\82¢\81B');
        end else begin
-               resWord := InputAssistDM.Add(KeyNameEdit.Text);
-               resWord.SetCategory(CategoryNameEdit.Text);
-               resWord.SetText(TextMemo.Text);
-               AddListViewItem(resWord);
-               GikoListView1.AlphaSort;
+               if (not InputAssistDM.IsDupulicate(
+                       KeyNameEdit.Text, CategoryNameEdit.Text) ) then begin
+                       resWord := InputAssistDM.Add(KeyNameEdit.Text);
+                       resWord.SetCategory(CategoryNameEdit.Text);
+                       resWord.SetText(TextMemo.Text);
+                       AddListViewItem(resWord);
+                       GikoListView1.AlphaSort;
+               end else begin
+                       ShowMessage('\93¯\88ê\82Ì\83L\81[\96¼\81E\83J\83e\83S\83\8a\96¼\82Å\8aù\82É\93o\98^\8dÏ\82Ý\82Å\82·\81B');
+               end;
        end;
 end;
 //! \8dí\8f\9c\83{\83^\83\93\89\9f\89º\8e\9e\82Ì\83C\83x\83\93\83g