перехват ошибок

[Марк Охман]

Привет всем)) проблема есть... вот такой код

 
try
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('Select * from '+sComboBox1.Items.Strings[sComboBox1.ItemIndex]
+' where День недели='+QuotedStr(sListBox1.Items.Strings[sListBox1.ItemIndex])+' order by №');

AdoQuery1.Open;
except
On EOleException do
          begin
            MessageDlg('Ошибка',mtWarning, [mbOK], 0);
            exit;
          end;
end;

дело в том что пользователь может забыть выбрать что-то из combobox, а значит выскочит ошибка, которая введет его в полный ступор... хотелось бы этого избежать. подскажите как правильно сделать обработчик ошибок, а то этот (код выше) выдает ошибку что EOleException is undeclared identifer. ???

[Stilet]

if sComboBox1.ItemIndex<>-1 then begin with AdoQuery1 do begin
 Close;
 SQL.text:=('Select * from '+sComboBox1.Items.Strings[sComboBox1.ItemIndex]
 +' where День недели='+QuotedStr(sListBox1.Items.Strings[sListBox1.ItemIndex])
 +' order  by №');
 Open;
end; end else begin
    MessageDlg('Ты же ниче не выбрал, чудо...',mtWarning, [mbOK], 0);
            exit;
end;

[SERG1980]

Сделайте ак чтобы пользователь не мог не выбрать. Например поставить у ComboBox ItemIndex = 0 или 1

except
On E: EOleException do
          begin
            MessageDlg(E.Message,mtWarning, [mbOK], 0);
            exit;
          end;
end;

[Марк Охман]

Спасибо всем)))) получилось)))

[_SERGEYX_]

А еще элегантнее сделать по умолчанию btnAdd.Enabled:= False;
и повесить обработчик

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 btnAdd.Enabled:= ComboBox1.ItemIndex >-1;
end;

[soleil@mmc]

Сообщение от _SERGEYX_

А еще элегантнее сделать по умолчанию btnAdd.Enabled:= False;
и повесить обработчик

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 btnAdd.Enabled:= ComboBox1.ItemIndex >-1;
end;

все описанное делается почти автоматом если начать пользоваться экшонами