Ver Mensaje Individual
  #2  
Antiguo 04-10-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Por supuesto que puedes. Para agruparlos, puedes usar un TObjectList o un array.

Código Delphi [-]

Type TTablas = array of TTable;

....

var tablas: TTablas;
begin
 SetLength(tablas, 20); // reservamos espacio para 21 tablas (empieza en cero)
 for i:= low(tablas) to high(tablas) do
 begin
    tablas[i] := TTable.Create(Application);
    tablas[i].TableName := .....
 end;

Yo he puesto que al cerrar la aplicación se liberen los TTables automáticamente, pero puedes usar un "nil" en ese parámetro y construir tu propia rutina para liberarlos.

Si necesitas crear y liberar tablas a voluntad (o no sabes cuantas tablas deben crearse), te aconsejo el TObjectList, es más cómodo.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita