Обеспечение безопасности поиска

[Ericnex]

Имеется поиск по БД.
Как правильно сделать чтобы если пользователь не выбрал поле для поиска из ComboBox1 выдавалось соответствующее предупреждение.

procedure TForm3.Button5Click(Sender: TObject);
begin
options:=[locaseinsensitive,lopartialkey];
begin
case ComboBox1.ItemIndex of
0: s1:='Name_program';
1: s1:='Kolvo_licensy';
2: s1:='Name_server';
3: s1:='Set_key'
end;
DM.Query1.Locate(s1,Edit1.Text,options);
end;
end;

[_SERGEYX_]

не выбрал поле для поиска

Значит у ComboBox1 значение ItemIndex будет минус один.
Кстати, Locate будет всегда находить только первую запись. Не лучший способ для поиска.

[Yurk@]

procedure TForm3.Button5Click(Sender: TObject);
begin
options:=[locaseinsensitive,lopartialkey];
if ComboBox.ItemIndex<>-1
  then
  begin
  case ComboBox1.ItemIndex of
    0: s1:='Name_program';
    1: s1:='Kolvo_licensy';
    2: s1:='Name_server';
    3: s1:='Set_key'
    end;
  DM.Query1.Locate(s1,Edit1.Text,options);
  end
  else ShowMessage('Не выбрано поле для поиска');
end;

[Ericnex]

Не совсем правильно. Ошибка из Delphi вылетает раньше предупреждения.

[Ericnex]

А нет все понял сам нашел ошибку. Должно быть

if ComboBox1.ItemIndex>-1 then