На форме размещены несколько Grid-ов, которые через свои DataSource подключены к своим ADOStoreProcedure.
Требуется динамически обращаться к свойству Sort объекта ADOStoreProcedure соответствующего Grid-а.
Фрагмент кода
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
[/SRC]
AGrid:=Screen.ActiveForm.FindComponent(GrName) as TDBGrid; // GrName - Имя Grid-а
Edit4.Text:=AGrid.DataSource.DataSet.Filter; // Компилируется и работает , т.к. свойство Filter у DataSet есть
Edit3.Text:=AGrid.DataSource.DataSet.Sort; // Не компилируется т.к. свойства Sort у DataSet нет
Edit2.Text:=AGrid.DataSource.DataSet.Name; // Показывает имя ADOStoreProcedure1
ADOStoreProcedure1.Sort:=''; // Работает, но не позволяет динамически выбирать Grid
[SRC delphi]
Как выкрутиться
