Código Delphi
[-]with TTable.Create(Application) do
begin
FieldDefs.Clear;
FieldDefs.Add(NombreCampo,TipoDato,Longuitud,Requerido);
IndexDefs.Clear;
with IndexDefs.AddIndexDef do
begin
Name := NombreIndice;
Fields := NombreCampo;
Options := Opcion;
end;
end;
CreateTable;
end;
Se me adelanto Marcos
La diferencia es que el lo hace por SQL yo lo hago por los metodos propios del TTable