|
#1
|
|||
|
|||
ADOTable в цикле
Здравствуйте!
Имею десять таблиц в базе с одинаковой структурой. Соответственно, десять адотейблов (ADOTable1, ADOTable1,...,ADOTable10). Алгоритм обработки каждой таблицы один и тот же. Сейчас для обработки каждой таблицы он в теле программы повторяется 10 раз. А нельзя ли как-то зациклить, к примеру: For i:=1 to 10 do Begin какое-то действие с полями i-той таблицы end |
#2
|
||||
|
||||
Цитата:
Код:
var i: Integer; Table: TADOTable; begin for i := 1 to 10 do begin Table := FindComponent('ADOTable'+IntToStr(i)) as TADOTable; ... end; end; |
#3
|
|||
|
|||
ADOTable в цикле
Большое спасибо за ответ - это то что нужно
|
#4
|
|||
|
|||
Вдогонку:
Строка "Table: TADOTable;" не компилится. У меня Delphi7 |
#5
|
||||
|
||||
Цитата:
Код:
uses ..., ADODB; |
#6
|
|||
|
|||
ADOTable в цикле
ОК!!!!!!! СПАСИБО!
|
#7
|
|||
|
|||
ADOTable в цикле
Если можно ещё вопрос?
После Table := FindComponent('ADOTable'+IntToStr(i)) as TADOTable; В Table почему-то nil, т.е. я так понимаю, что компонент не найден. Вообще-то все таблы у меня в отдельном DataModule - может это как-то влияет? |
#8
|
||||
|
||||
Цитата:
Код:
Table := DataModule1.FindComponent('ADOTable'+IntToStr(i)) as TADOTable; |
#9
|
|||
|
|||
ADOTable в цикле
Всё! Теперь допетрил! Спасибо!
|