FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como hacer busqueda en Unit y lo enviar para excel?
Asi. Tengo un sistema legado en Delphi 5 y Sql Server 2008 R2. Mi jefe me lo pidio esto. Que yo devo hacer un programa, que has un lista de todas las tablas de mi banco(sysobjects) y despues pegue el nombre desas tablas del banco de datos y buscar en ese proyecto antigo quales son las Units que usan essas tablas y hacer una lista con: Tabla -> Unit y exportar para excel. Esa aplicacion nueva estas siendo desarrollada en Delphi XE.
|
#2
|
||||
|
||||
Mediante FindFirst, FindNext, deberás recorrer todos los archivos *.pas y *.dfm.
Por cada archivo: Cargas cada archivo en un TStringList. Luego recorres cada linea del TStringList buscando las tablas y el nombre de la Unit
|
#3
|
|||
|
|||
Bueno, esto es lo que estoy trabajando y usando TList<String> en lugar de TStringList, que para mi no hace diferencia. La Duda es, tengo que abri el .PAS y hacer yna busqueda asi. Saber en qual Unit, yo tengo el nombre de la tabla, asi: Vamos decir que tengo una tabla que sy llama Cliente. Y esa tabla estas siendo usada en las units: uCliente, uVendas, uCompras(Esto es solo un ejemplo). Y tengo 30 Units. O que yo quiero es que, quando yo impiezar mi busqueda, el va abrinfo las units y percorendo ella para ver si adentro della hay la palavra "Cliente". Si hay, entonces ele graba en una lista y no necesita mas recorer aqulla unit, se va a otra hasta terminar todo y despues el saca otro nombre de tabla y hace otra vez y asi, hasta que tudo se lo termina. No se si fue explicito, pues el idioma no me ayuda mucho, lo mio y los de usteds, pero es mas o menos esto.
|
#4
|
||||
|
||||
Hola Paulao.
A ver si interpreté bién lo que estas buscando...
Llamada de ejemplo:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-02-2012 a las 17:30:14. |
#5
|
|||
|
|||
ecfisa, hizo algunas alteraciones y ahora estas. Una pregunta: Como hago para hacer busqueda en .pas y .dfm al mismo tiempo con FindFirst?
|
#6
|
||||
|
||||
Cita:
Llamada: De ese modo podés pasar la máscara que desees al argumento FileMask, por ejemplo: '*.PAS;*.DFM;*.TXT;*.BAT;*.RC' Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 29-02-2012 a las 17:05:20. |
#7
|
|||
|
|||
Hizo estas alteraciones:
El problema es quando me voy a exportar para excel. No estas funcionando. Abajo la forma como yo hago:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cómo hacer para retornar valores de una Unit a otra | karo | Varios | 6 | 14-03-2009 20:57:28 |
Ayuda para hacer una busqueda | radije | MySQL | 0 | 30-04-2007 10:19:22 |
como puedo hacer para cambiar un archivo de excel con versión 2.1 a versión 8.0 | RONPABLO | Servers | 4 | 23-01-2006 06:02:38 |
como puedo hacer para enviar un quick report por email?? | merlin | Internet | 1 | 14-12-2003 20:24:17 |
como puedo hacer para enviar un quick report por email?? | merlin | Impresión | 4 | 05-12-2003 18:06:58 |
|