Нумерация строк

[ShnapS]

Здраствуйте. Интересует такой вопрос, у меня есть таблица которая отображается в BDGrid в которую я могу как добавлять так и удалять строки. После удаления строки и добавления следуйщей сбивается нумерация. Подскажите как исправить?
Содержание кнопки "Удалить"

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Delete;
end;

ScreenShot:
http://piccy.info/view/b473a7461659f...33bff7328348a/

[Gulik]

я как понял поле ID у тебя Счетчик, его изменять нельзя (Read-Only)
если записей не много то подойдет цикл, для нумерования строк в таблице. Создай еще одно поле с именем ID2, и меняй код кнопки на этот

procedure TForm1.Button2Click(Sender: TObject);
   var
      i,x:integer;
begin
   DataSource1.Enabled:=False;
   i:=Table1.RecNo;
   Table1.Delete;
   Table1.First;
   for x:=0 to Table1.RecordCount-1 do begin
       Table1.Edit;
       Table1.FieldByName('ID2').AsInteger:=x+1;
       Table1.Next;
   end;
   if Table1.Modified then
      Table1.Post;
   Table1.RecNo:=i;
   DataSource1.Enabled:=True;

[ShnapS]

Спасибо, очень помог!
Возник еще один вопрос. Как мне добиться того чтоб по нажатию на кнопку "Удалить" удалялся только ВЫБРАННАЯ строка, а не как сейчас (удаляется ПОСЛЕДНЯЯ строка таблицы)?

-------------

Вот буквально только что увидел почему это происходит. На screen-shote видно что указатель стоит на той строке которая будет удалена по нажатию на кнопку. Возникает 2 вопроса:
1. Я так полагаю убрать указатель никак нельзя?
2. Как можно сделать так чтоб при нажатии на кнопку "Удалить" выводилось сообщение "Вы действительно хотите удалить строку #...?" ну и два варианта Да или Нет. ?
http://piccy.info/view/31802b648d637...e40061139251c/

[Dark_Spirit]

обработчик для кнопки "удалить"

if messagedlg('Вы действительно хотите удалить выделенную запись?',mtConfirm,[mbYes,mbNo],0)=1
then <удаление записи>

а для DBGrida на событие OnCellClick, напишите обработчик который бы запоминал ID, а потом при нажатиии на кнопку удалалась строка с этим ID.

[Stilet]

Не знаю... Я бы просто создал вычисляемое поле, в которое писал бы RecNo текущей записи...
Зачем счетчики передергивать...

[ShnapS]

Спасибо, Dark_Spirit ! Решил это таким образом:

procedure TForm1.Button2Click(Sender: TObject);
var
   i:integer;
begin
   i:=Table1.RecNo;
if Messagedlg('Вы действительно хотите удалить запись #'+IntToStr(i)+' ?', mtConfirmation,  [mbYes, mbNo], 0)=mrYes
then Table1.Delete;
end;