newdelphi

antipauli respondió: Aquí tienes un ejemplo de como se hace: Incluye 'bde' en el uses de tu form y utiliza esta funcion para compactarla: procedure PackDBF(Tabla: TTable); begin Check(DbiPackTable(Tabla.DBHandle, Tabla.Handle, nil, szDBASE, True)) end; Pero cuidado, para...