¿Agregar una unidad a las cláusulas de uso de todas las unidades en un proyecto?

Question

Estoy descubriendo que ciertos tipos de limpieza y refactorización de códigos se hacen MUY difíciles debido a la dificultad de agregar una unidad a las cláusulas de uso de un proyecto grande.

Quiero agregar una unidad a la interfaz-uses-clause de todas las unidades delphi .pas en un solo proyecto, y eso significa hacerlo manualmente en más de 500 lugares. Cada vez que refactorizo ​​una unidad gigante y la divida de una unidad en dos, probablemente pueda buscar y reemplazar utilizando algo como "notepad ++" para cambiar "MyOldUnit", "MyOldUnit, MyNewUnit", pero a veces, eso no es seguro. . También falla en los casos en que "MyOldUnit" es lo último en la cláusula uses ("usa MyOldUnit;").

De todos modos, buscar y reemplazar en archivos es un asunto peligroso. Si no existe tal herramienta, estoy considerando escribir una, usando el analizador de Castalia delphi. He comprobado GExperts, Castalia, ModelMakerCodeExplorer y ninguno de ellos tiene una forma de insertar unidades por lotes en todas las cláusulas de uso en un proyecto. Espero que exista una herramienta para hacer esto.

En segundo lugar, en muchos casos, muevo una función de una unidad donde no pertenece a otra, pero esto significa que necesito agregar esa unidad al 30% de las unidades del proyecto, pero no a las otras 70 % donde ya está agregado. Eso significa que se requiere un enfoque de analizador, no un enfoque de expresiones regulares.

Answer 1

Porque todos escribimos el código que sin duda utilizaremos en otros proyectos. Si mueve partes de la interfaz de una unidad a otra, romperá sus proyectos. Lo mismo con unidades viejas y nuevas.

Pero puede refactorizar sin romper sus proyectos. Simplemente marque las partes (unidad, clase, método, procedimiento) como obsoletas. Su código funciona, pero el compilador le advertirá.

Aquí un ejemplo de movimiento de un procedimiento de una unidad a otra:

unit Foo; 

interface 

procedure FooProc; deprecated; // new location in unit FooNew 

implementation 

uses 
    FooNew; 

procedure FooProc; 
begin 
    FooNew.FooProc; 
end; 

end.