Выдает ошибку " Unsigned Inditifier 'QyerySQL' ".
Какие нужно подключить библиотеки для работы с квери, если проблема в них?
Код:
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
with Query1 do
begin
DisableControls;
Close;
SQL.Clear;
SQL.Add(QuerySQL);
SQL.Add('ORDER BY ' + Column.FieldName);
Open;
// Восстанавливаем настройки заголовка, иначе всё станет синим
DBGrid1.Columns.RestoreDefaults;
Column.Title.Font.Color := clBlue;
EnableControls;
end;
end;