¡Hola a todos!
Es bueno saber que está solucionado.
Pero, retomando la interesante reflexión que haces, cabe añadir que escribir el nombre de una unidad en una cláusula Uses no se compara en nada con escribir el resto del código que normalmente va dentro de una unidad.
No obstante, cuando es necesario repetir en varios lugares una sección de código bastante significativa para el autor, y, por su naturaleza, dicho código no puede ser sometido a los dominios de una función (por ejemplo una cláusula Uses con varios nombres de unidades), es posible recurrir al uso de directivas
$Include:
Código Delphi
[-]
Uses
{$Include NombresDeUnidades1.inc}, SysUtils, Variants;
Aunque francamente desaconsejaría esta práctica en tu caso.
Además, en un grupo de cien unidades que hacen referencia a un mismo elemento de otra unidad, es muy probable que exista una buena cantidad de código común relacionado con el uso de dicho elemento, código que podría sintetizarse mediante la creación de
nuevas funciones o una buena revisión a la
jerarquía de clases. Recuerda que las formas sí pueden derivar (descender / heredar) de otras formas; muchos OnCreate con el mismo código, por ejemplo, pueden convertirse en un sólo OnCreate colocado en una plantilla "
base", o cuando menos concentrar en éste lo que es común para todos aquellos.
Espero también esto sea de utilidad.
Un {$Abrazo+}.
Al González.
