Показать сообщение отдельно
  #1  
Старый 24.05.2018, 03:13
Anastasya32 Anastasya32 вне форума
Прохожий
 
Регистрация: 24.05.2018
Сообщения: 4
Версия Delphi: Delphi 2006
Репутация: 10
По умолчанию Обработчик для кнопки на Delphi

Здравствуйте, подскажите пожалуйста почему вылетает ошибка
List Index Out Of Bounds(1)? Пишу обработчик для кнопки и никак не работает

Код обработчика:
Код:
procedure TFormReportEmpl.btReportClick(Sender: TObject);
begin
   if Edit1.Text='' then
     begin
       ShowMessage('Введите Фамилию!');
     end
   else
     begin
       with DataModule1.QuREmpl do
         begin
         if Active = True  then
           Close;
           Prepare;
           ParamByName('fio').AsString:= Edit1.Text;
           Open;
            DBGrid1.Columns[0].Title.Caption := 'ФИО';
            DBGrid1.Columns[1].Title.Caption := 'Должность';
            DBGrid1.Columns[2].Title.Caption := 'Дата заказа';
            DBGrid1.Columns[3].Title.Caption := 'Итог';
         end;
     end;
end;
Ответить с цитированием