Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/InputAssist.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by h677, Sun May 6 07:09:55 2007 UTC revision 1.9 by h677, Sat Jul 21 01:56:29 2007 UTC
# Line 177  begin Line 177  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26