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