Здравствуйте, подскажите пожалуйста почему вылетает ошибка
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;