Как передать вместо свойства строку?

[BoozZzilla]

Может заголовок некорректный, вопрос все пояснит:
Есть два DBGrid-а на форме, я хочу чтобы по выбору какой либо ячейки в первом DBGrid-е менялось содержимое второго.
То есть есть много DataSource-ов и я хочу присвоить имя одного из них второму гриду

TableName:='DataModule.DSZamery'+DBGrid1.DataSource.DataSet.Fields[1].AsString;
DBGrid2.DataSource:= ???

Вот если я в TableName собрал то что мне надо в качестве имени как мне это прикрутить ко всему?

[Аватар]

TableName к DataSource так просто не прикрутить
Можно так

if DBGrid1.DataSource.DataSet.Fields[1].AsString='тра-ля-ля1' then DBGrid2.DataSource:=DataSource1
else if DBGrid1.DataSource.DataSet.Fields[1].AsString='тра-ля-ля2' then DBGrid2.DataSource:=DataSource2
else if ...

Чуть посложнее - поискать в Components по имени нужный DataSource

[BoozZzilla]

Не, ну я сам понял что можно системой условий, просто это некрасиво. (поясню, там 9 таблиц будет)
А как там, что там с Components? Что писать то?

upd.
Урряяя, я его сам победил.
На всякий случай рассказываю как:
Работаю через ADO
Я создал одну общую ADO таблицу. В нужный момент закрываю активный DataSource, меняю имя таблицы к которой общая таблица привязана и заново активирую DataSource:

DataModule2.DSCommon.DataSet.Active:=False;
DataModule2.CommonTable.TableName:=TableName;
DataModule2.DSCommon.DataSet.Active:=True;

[Аватар]

В цикле от 0 до ComponentCount-1 искать на форме где они находятся компоненты типа TDataSource по некоторому условию и при нахождении засунуть найденный указатель в DBGrid2.DataSource

[Slym]

Связь типа Мастер-Детайл?
если так то должна получиться связка
ADOQuery1->DataSource1->ADOQuery2(проперти DataSource)->DataSource2

в запросе ADOQuery2 в Where должны использоваться параметры с именами как имена полей в ADOQuery1

т.е. ADOQuery1
Select Table1_id, Name From Table1;

в ADOQuery2
Select * FROM Table2 Where MasterId= :Table1_id;


и все автоматом заработает... и гриды тут непричем, это все равно что сказать "повис монитор"

[evg_m]

То есть есть много DataSource-ов и я хочу присвоить имя одного из них второму гриду

В цикле от 0 до ComponentCount-1 искать на форме где они находятся компоненты типа TDataSource

зачем цикл если есть Tcomponent.FindComponent

ds:=xx.FindComponent('DSXXX'); //один из DataSource (а именно с именем DSXXX)
DbgridX.DataSource:=ds as TDataSource; // "присвоить" DBgrid'y

OFFTOP: Завязываться на имена плохая привычка.

[Аватар]

зачем цикл если есть Tcomponent.FindComponent

Специально не писал - только поиск по имени, а перебором можно и по другим критериям, например по значению Tag