Club Builder

[TOÑO]

HOLA:

Bueno la verdad es que este codigo lo he encontrado de casualidad.
No es que sea espectacular, pero a mi me ha gustado. Vosotros mismos.

-Cerrar la Tabla
Tabla ->Close();

AnsiString Nom = Tabla->TableName.SubString(1,Tabla->TableName.Length()-3);

DeleteFile(Nom + ".PX");
for (char i= '0';i < '3';i++) // Número de índices secundarios
{
DeleteFile(Nom + ".XG" + AnsiString(i));
DeleteFile(Nom + ".YG" + AnsiString(i));
}
}

-borrar la definición de índices:

Taula->IndexDefs->Clear();

-volver a definir los índices por ejemplo:

Tabla->AddIndex("","Data;Hora;Diferent",TIndexOptions() << ixPrimary,"");
Tabla->AddIndex("NomTax","Nom",TIndexOptions() << ixCaseInsensitive,"");
Tabla->AddIndex("ParTax","ParadaActual;Data;Hora",TIndexOptions() << ixCaseInsensitive,"");

-abrir la tabla

Tabla->Open();



By.