Здравствуйте!
Допустим у меня сформировалась таблица 'G_777_777'
Как мне через текстовую строку, содержащее наименование этой таблицы, обращатся к ней, и ко всем ее свойствам/методам и т.д...
Например:

Код

s:='G_777_777'; s.Open; s.Field[5].Asinteger:=4;// и т.д.

Второй вопрос имет отношение к первому, и надеюсь я не нарушу правила форума:
Как бы мне еще неявно определить тип поля, чтобы также к нему обращатся?
Например:

Код

for i:=0 to dm.ADOTableKart.FieldCount-1 do   begin    case  dm.ADOTableKart.nameType of//nameType - это свойство я сам придумал   date:   int: ///etc....   end;

Помогите, товарищи!!

Если я тебя понял правильно - ты хочешь к одной ADOTable подцеплять поочерено несколько таблиц, тогда так:
1.Создаешь ADOConnection (естественно подключаешь его к базе), ADOTable1. В объект инспекторе подкючаешь ADOTable1 k ADOConnection.
2. (для проверки DBGrid, DataSource - всё это привязываешь к ADOTable1)

Код

var    s: array[0..1] of string;

...

Код

s[0]:='G_777_777'; s[1]:='G_888_888'; ADOTable1.Close; ADOTable1.TableName:=s[0]; ADOTable1.Open; Showmessage('Таблица '+s[0]); ADOTable1.Close; ADOTable1.TableName:=s[1]; ADOTable1.Open; Showmessage('Таблица '+s[1]);

Кстати так же можно менять и CONNECTION.

А если я тебя понял неправильно, то тебе нужно совсем другое и всё вышеописанное можешь не читать.
Добавлено @ 11:41
Если я тебя понял правильно - ты хочешь к одной ADOTable подцеплять поочерено несколько таблиц, тогда так:
1.Создаешь ADOConnection (естественно подключаешь его к базе), ADOTable1. В объект инспекторе подкючаешь ADOTable1 k ADOConnection.
2. (для проверки DBGrid, DataSource - всё это привязываешь к ADOTable1)

Код

var    s: array[0..1] of string;

...

Код

s[0]:='G_777_777'; s[1]:='G_888_888'; ADOTable1.Close; ADOTable1.TableName:=s[0]; ADOTable1.Open; Showmessage('Таблица '+s[0]); ADOTable1.Close; ADOTable1.TableName:=s[1]; ADOTable1.Open; Showmessage('Таблица '+s[1]);

Кстати так же можно менять и CONNECTION.

А если я тебя понял неправильно, то тебе нужно совсем другое и всё вышеописанное можешь не читать.

Код

Procedure WorkWithDS(s:TDataSet); begin   s.Open;   s.Close; end;

Код

WorkWithDS(ADOTable1);

Это сообщение отредактировал(а) dsergey - 11.8.2005, 14:38