перемещение строк в dbedit

[shadowmaker]

приветствую, коллеги!

есть mdb-база (ms acces). я ее подключил через adoquery и вывел в dbgrid. хочу сделать чтобы по клику на кнопку выделенная строка перемещалась на одно положение вверх, а та вставала на место первой (кароче разменять местами).

настроил 2 dbedita и срисовал их значения в 2 edita (которые пока что использую в качестве буфера). потом двигался по таблице и вытаскивал из эдитов данные и передавал в таблицу.

procedure TForm1.Button4Click(Sender: TObject);
begin
  if adoquery1.Fields[0].Value<>1 then
  begin
    edit1.Text:=dbgrid1.Fields[1].Value;
    edit2.Text:=dbgrid1.Fields[2].Value;
    adoquery1.prior;
    //adoquery1.Recordset.MovePrevious;
    edit3.Text:=dbgrid1.Fields[1].Value;
    edit4.Text:=dbgrid1.Fields[2].Value;
    adoquery1.Recordset.MovePrevious;
    dbedit1.Text:=edit1.Text;
    dbedit2.Text:=edit2.Text;
    adoquery1.Recordset.Fields[1].Value:=dbedit1.Text;
    adoquery1.Recordset.Fields[2].Value:=dbedit2.Text;
    //adoquery1.next;
    adoquery1.Recordset.MoveNext;
    dbedit1.Text:=edit3.Text;
    dbedit2.Text:=edit4.Text;
    adoquery1.Recordset.Fields[1].Value:=dbedit1.Text;
    adoquery1.Recordset.Fields[2].Value:=dbedit2.Text;
    adoquery1.Refresh;
  end;
end;

в один момент вроде работало в середине таблицы, но при попытке двигать вторую и третью запись, они уходили в конец таблицы... потом я где-то запутался и теперь вообще не работает.

помогите, плз.

[ArtGrek]

не знаю об dbgrid1, но что б в едитах поменять местами текст, нужна строковая переменая, происходит так
строка = едит1
едит1 = едит2
едит2 = строка
надеюсь хоть чемто помог

[shadowmaker]

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

не знаю об dbgrid1, но что б в едитах поменять местами текст, нужна строковая переменая, происходит так
строка = едит1
едит1 = едит2
едит2 = строка
надеюсь хоть чемто помог

спасибо за попытку, но мне не это надо.
мне надо в базе данных разменять значения полей двух записей

[_SERGEYX_]

Здесь возможны 2 варианта.
1. Поменять местами значение ключевого поля по которому производится сортировка (правда, я не помню, можно ли значение счетчика менять в Access... кажется, нельзя)
2. Поменять местами все остальные значения полей.
Вот, пример процедуры, которая делает это

procedure MoveRow(Dataset: TDataSet; MoveUp: Boolean);
var bmOld, bmNew: TBookmark;
   v_new, v_old: array[0..50] of Variant; i: Integer;
begin
   with Dataset do
   begin
      bmOld := GetBookmark;
      for i := 0 to FieldCount - 1 do if Fields[i].DataType <> ftAutoInc then v_old[i] := Fields[i].AsVariant;
      if MoveUp then Prior else Next;
      if (Eof) or (Bof) then Exit;
      bmNew := GetBookmark;
      for i := 0 to FieldCount - 1 do if Fields[i].DataType <> ftAutoInc then v_new[i] := Fields[i].AsVariant;

      Edit;
      for i := 0 to FieldCount - 1 do if Fields[i].DataType <> ftAutoInc then Fields[i].AsVariant := v_old[i];
      Post;
      GotoBookmark(bmOld);
      Edit;
      for i := 0 to FieldCount - 1 do if Fields[i].DataType <> ftAutoInc then Fields[i].AsVariant := v_new[i];
      Post;
      GotoBookmark(bmNew);
   end;
end;

[shadowmaker]

благодарю!
не все в процедуре понял, но работает прекрасно!
спасибо большое.

[shadowmaker]

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

procedure MoveRow(Dataset: TDataSet; MoveUp: Boolean);
var bmOld, bmNew: TBookmark;
   v_new, v_old: array[0..50] of Variant; i: Integer;

поковырялся в процедуре...
маленькое уточнение:

v_new, v_old: array[0..50] of Variant;

количество элементов в массиве связано с количеством полей?
т.е. если у меня 5 полей, то мне хватит [0..4] массива?
я правильно все понял?