[[Lepe]]

Hola BuenaOnda, para ser concisos, al código de samantha jones no le falta nada.

Se supone que ese código va en el Datamodule, y puesto que dentro de él, existen ya objetos TTable, los uses los habrá añadido Delphi.

Para ser pejigueras... como decimos por aquí, pues sí, le falta declarar la variable "i" .

Quizás falte algo que no es obvio:

Esto no funcionará:

Código Delphi [-]
procedure AbreTablas;
var i:integer;
begin
for i:=0 to componentsCount -1 do     
    if components[i] is TTable then            
         TTable(components[i]).open;
end;

Sin embargo esto sí:

Código Delphi [-]
procedure TDatamodule1.AbreTablas;
var i:integer;
begin
for i:=0 to componentsCount -1 do     
    if components[i] is TTable then            
         TTable(components[i]).open;
end;

Siendo TDatamodule1 el nombre de dicho módulo de datos.

Saludos