Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Crear una tabla en runtime, tiempo de ejecución - Delphi
Lenguaje de programación Borland Delphi


Primero añadiremos un control TTable al formulario, un botón y en el evento Click del mismo pondremos lo siguiente:


 procedure TForm1.Button1Click(Sender:TObject);
 begin
   if not Table1.Exists then
   begin
     Table1.Active       := FALSE;
     {Aqui el Alias/Here, the alias}
     Table1.DatabaseName := 'Alias';
     Table1.TableType    := ttParadox;
     {Aqui el nombre de la tabla/Here, the Table name}
     Table1.TableName    := 'Nombre de la Tabla';
     with Table1.FieldDefs do
     begin
       Clear;
       Add('IntegerField', ftInteger,  0, FALSE);
       Add('StringField' , ftString , 30, FALSE);
       Add('LogicalField', ftBoolean,  0, FALSE);
       Add('FloatField'  , ftFloat  ,  0, FALSE);
       Add('DateField'   , ftDate   ,  0, FALSE);
       Add('TimeField'   , ftTime   ,  0, FALSE);
     end;
     Table1.CreateTable;
   end;
 end;

Si quieres añadir algún índice, has de utilizar la propiedad IndexDefs que es similar a la FieldDefs que hemos usado.




Publicado el: 2003-09-11

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A