Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 03-12-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 31
Lepe Va por buen camino
Siempre digo lo mismo.... haz un programa que edite automáticamente los .pas.

No es para nada complejo:
- Haz copia de seguridad !!!!
- Buscar todos los archivos .pas de una carpeta y si acaso recursivo (usa los trucos del foro).
- un bucle while para todos los archivos encontrados:
- carga el primer archivo en un TStringlist con LoadFromFile
- busca la palabra "implementation" y guarda la línea donde la linea donde la has encontrado.
- inserta una nueva linea: stringlistArchivo.insert(lineaImplementation, '{$I archivo.inc}');
- guarda el stringlist.
- ¡¡ a por otro archivo !!

Si has usado los define en la parte interface (arriba del todo del .pas, tendrás que incluir el archivo después de los uses).
Ten en cuenta que quizás algún archivo no tenga la parte implementation, controla esas cosas antes que obtener una excepción en el programa.

Yendo con pies de plomo... puedes tardar 30 minutos en hacer ese programita, ejecutarlo es cosa de niños

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 03-12-2008 a las 13:00:29.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como traducir #define DEFAULT(x)= x davidj Varios 2 15-08-2008 19:53:03
$ifdef define1 OR define2 hay alguna forma de hacer un OR ? fcios Varios 3 01-06-2008 01:42:16
Realizar una consulta sobre los registros que devuelve otra consulta Borjaserrano Firebird e Interbase 12 01-10-2007 23:19:44
{$ifdef} pab4146 API de Windows 2 17-02-2005 18:08:08


La franja horaria es GMT +2. Ahora son las 06:07:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi