[Anastasya32]

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

Код обработчика:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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;

[dr. F.I.N.]

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

вылетает ошибка List Index Out Of Bounds(1)?

Ошибка говорит о том, что произошел выход за пределы массива. Проверьте существование колонок DBGrid с индексами используемыми Вами (0, 1, 2, 3).

[Alegun]

Обычно шапка названия полей вводится ещё при разработке, во время подключения таблицы и при выполнении их заполнения не требуется