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