[artemavd]

Помогите сделать так, чтобы можно было удалять столбцы ненужные в DBGrid-e. При запуске программы в гриде отображается 15 столбцов, но возможно понадобится удалить лишние. Я начал делать так:

Код:

1 2 3 4 5 6 7

var  i,j:integer; begin  i:=14; //15 столбцов  j:=1; //при каждом нажатии надо, чтобы удалялся один столбец    DBGrid1.Columns[i-j].Destroy; end;

но когда я нажимаю на кнопку один раз, то в таблице остается нумерация столбцов такая: 1,2,3,4,5,6,7,8,9,10,11,12,13,15, а должно быть 1,2,3,4,5,6,7,8,9,10,11,12,13,14. Нажимаю еще раз остается такая последовательность: 1,2,3,4,5,6,7,8,9,10,11,12,13. Нажимаю третий раз появляется ошибка: "List index out of bounds (13)" и все. Как сделать, чтобы заработало правильно? Помогите пожалуйста)