Не работает сортировка

Пытаюсь сделать сортировку локальной Paradox базы следующим образом:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
with Query1 do
begin
DisableControls;
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CDR.db ORDER BY ' + Column.FieldName);
Prepare;
Open;
EnableControls;
end;
end;

Но после выполнения в Grid'e ничего не меняется. Уже по всякому извращался с индекасми самой базы - все без толку!

стало быть запрос не не правильный
посмотри сточку которую ты сформировал и выполни ее отдельно :)

запрос правильный - он работает в Database Desktop'е.
Может я как-то не так связал компоненты, или с индексами базы чего намудрил? Но чувство такое что запрос отрабатывается, а результаты просто НЕ ОТОБРАЖАЮТСЯ.

ежли у тебя DBGrid1 через DataSource1 связан с query1 то ессно работать не будет..
когда ты пишеш

DisableControls; Close;

Column теряется и выходит стока типа 'SELECT * FROM CDR.db ORDER BY '
что по идее должно в Exception вывалиться

Не-е-е!
Я как раз так и не сделал - у меня DataSource1 был связан с Table! Поэтому в Grid'e ничего и не отображалось.

Попробуйте так

with Query1 do begin DatasourceForQuery1.enabled:=false; Close; SQL.Clear; SQL.Add('SELECT * FROM CDR.db ORDER BY ' + Column.FieldName); Prepare; //на мой взгляд - лишнее Open; DatasourceForQuery1.enabled:=true; end;

S12MOst
) шутник однако

Посмотри не задано случаем проперти Query1.Sort
Если задано - прербьет все на прочь.