[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]

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