Сортировка слайдов в TableGrid вручную

Приветствую.

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/sunrl4ano9340 … a.zip?dl=0

Добавил для компонента TableGrid события OnRowMove и OnAfterRowMove, теперь записи можно переставлять таким образом

procedure Form1_TableGrid1_OnRowMove (Sender: TObject; FromPos, ToPos: Integer; var Accept: Boolean);
var
    orderFrom, orderTo: integer;
begin
    orderFrom := SQLExecute('SELECT record_count FROM people WHERE id='+ IntToStr(Form1.TableGrid1.dbIndexToID(FromPos)));
    orderTo :=   SQLExecute('SELECT record_count FROM people WHERE id='+ IntToStr(Form1.TableGrid1.dbIndexToID(ToPos)));

    SQLExecute('UPDATE people SET record_count = ' + IntToStr(orderFrom) + ' WHERE id='+ IntToStr(Form1.TableGrid1.dbIndexToID(ToPos)));
    SQLExecute('UPDATE people SET record_count = ' + IntToStr(orderTo) + ' WHERE id='+ IntToStr(Form1.TableGrid1.dbIndexToID(FromPos)));
end;

procedure Form1_TableGrid1_OnAfterRowMove (Sender: TObject; FromPos, ToPos: Integer);
begin
    Form1.TableGrid1.dbUpdate;
end;

Проект с примером:

Ошибка появляется при запуске проекта, который я дал выше? Если да, пожалуйста пришлите мне zip архив всей папки данного проекта на support@drive-software.com
протестирую.

Datagrid может отображать данные из одной таблицы или из многих связанных таблиц; это не имеет значения, потому что моя сохраненная последовательность сортировки использует номер автоинкремента самого datagrid - он не зависит от каких-либо таблиц.
В этом примере я оставил 2 столбца видимыми, чтобы вы могли видеть, что происходит. При первом запуске программы столбец «old sort order» и столбец «new sort order» всегда будут одинаковыми. Когда вы впоследствии меняете порядок сортировки, столбец «new sort order» никогда не изменяется, и это порядок сортировки, чем он сохраняется при закрытии программы.
И убедитесь, что последовательность сортировки, указанная в свойствах объекта datagrid, установлена в столбец «new sort order», иначе он не будет работать
Извините, если это неясно - с помощью переводчика Google.
Дерек

А как будет выглядеть этот скрипт,

procedure Form1_OnClose (Sender: string; Action: string);
var  vc, vi: integer;
begin
  vc := form1.tablegrid1.RowCount-1;
  for vi := 0 to vc do
    begin
      sqlexecute('update people set mysort = ("'+form1.tablegrid1.cells[3,vi]+'") where id =' +inttostr(form1.tablegrid1.dbindextoid(vi)));
    end;
end;

если на форме более одного TableGrid, а данные  из одной таблицы фильтруются в каждом TableGrid, ну и что еще изменится?