[Red_Garry]

Здравствуйте!
Имею десять таблиц в базе с одинаковой структурой. Соответственно, десять адотейблов (ADOTable1, ADOTable1,...,ADOTable10). Алгоритм обработки каждой таблицы один и тот же. Сейчас для обработки каждой таблицы он в теле программы повторяется 10 раз. А нельзя ли как-то зациклить, к примеру:
For i:=1 to 10 do
Begin
какое-то действие с полями i-той таблицы
end

[poli-smen]

Сообщение от Red_Garry

Здравствуйте!
Имею десять таблиц в базе с одинаковой структурой. Соответственно, десять адотейблов (ADOTable1, ADOTable1,...,ADOTable10). Алгоритм обработки каждой таблицы один и тот же. Сейчас для обработки каждой таблицы он в теле программы повторяется 10 раз. А нельзя ли как-то зациклить, к примеру:
For i:=1 to 10 do
Begin
какое-то действие с полями i-той таблицы
end

Код:

var
  i: Integer;
  Table: TADOTable;
begin
  for i := 1 to 10 do
  begin
    Table := FindComponent('ADOTable'+IntToStr(i)) as TADOTable;
...
  end;
end;

[Red_Garry]

Большое спасибо за ответ - это то что нужно

[Red_Garry]

Вдогонку:
Строка "Table: TADOTable;" не компилится. У меня Delphi7

[poli-smen]

Сообщение от Red_Garry

Вдогонку:
Строка "Table: TADOTable;" не компилится. У меня Delphi7

Добавь:

Код:

uses
  ..., ADODB;

[Red_Garry]

ОК!!!!!!! СПАСИБО!

[Red_Garry]

Если можно ещё вопрос?
После
Table := FindComponent('ADOTable'+IntToStr(i)) as TADOTable;
В Table почему-то nil, т.е. я так понимаю, что компонент не найден. Вообще-то все таблы у меня в отдельном DataModule - может это как-то влияет?

[poli-smen]

Сообщение от Red_Garry

Если можно ещё вопрос?
После
Table := FindComponent('ADOTable'+IntToStr(i)) as TADOTable;
В Table почему-то nil, т.е. я так понимаю, что компонент не найден. Вообще-то все таблы у меня в отдельном DataModule - может это как-то влияет?

Конечно влияет - искать нужно на той форме, на которой они лежат. Если они лежат например на DataModule1, то делаешь так:

Код:

Table := DataModule1.FindComponent('ADOTable'+IntToStr(i)) as TADOTable;

[Red_Garry]

Всё! Теперь допетрил! Спасибо!