Foros Club Delphi - ¿Cómo automatizar el cambio de un componente por otro?

Hola, Strelok.

Por algunas de las respuestas que haz dado he dado por sentado que estás empezando, pero también llego a sentir algo de frustración por la poca diligencia que haz mostrado y me refiero mas que todo a la profundización del tema sea con la solución que he planteado o alguna otra.

- El convert.exe, como ya haz podido corroborar, cambia el contenido del .dfm de binario a texto y viceversa.

- No veo necesario copiar los ejecutables. Para eso puedes pasar rutas completas. Ej:

Código:

"C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\refind.exe" /S /Y /I /Q /B:2  "C:\Users\movorack\Documents\Embarcadero\Studio\Projects\Prueba1\*.dfm" /X:"C:\Users\movorack\Documents\Embarcadero\Studio\Projects\Prueba1\refind_Rules.txt"

- Con respecto a tu duda:

Cita:

¿Cómo puedo crea una expresión regular para refind.exe, de tal forma que le diga para reemplazar una propiedad, si sólo sí, esa propiedad forma parte de un componente?

En la documentación de refind que se encuentra en embarcadero. (http://docwiki.embarcadero.com/RADSt...Ex_Expressions) explican que se puede usar la regla #migrate para modificar una propiedad. Y que este cambio puede limitarse a una clase en especifico.

En el archivo de ejemplo para migrar de BDE a Firedac, colocan entre otros ejemplos estos:

Código:

#migrate TTable:ReadOnly -> UpdateOptions.ReadOnly

#migrate TDatabase:Execute -> ExecSQL

Que modifica la propiedad ReadOnly solamente en la clase TTable y Execute en la clase TDatabase.

Entonces, si lo que requieres es modificar el nombre de la propiedad porque en el nuevo componente tiene otro nombre, esta es la opción.

Pero, si lo que buscas es modificar el valor de una propiedad, La cosa se complica un poco. Aunque no es nada que no puedas manejar.

Para este ejemplo, he añadido a un nuevo proyecto varios componentes que tengan la propiedad "Caption", pero solo requiero modificar el valor de Caption para el o los componentes TLabel

Ejemplo del DFM:

Código:

object Form1: TForm1

  Caption = 'Form1'

  object Label1: TLabel

    Caption = 'Label1'

  end

  object Button1: TButton

    Caption = 'Button1'

  end

  object RadioButton1: TRadioButton

    Caption = 'RadioButton1'

  end

end

Para esto debo crear un archivo de reglas que será usado por el refind. El archivo lo he creado con estas dos reglas

Código:

#migrate TLabel:Caption -> Caption = 'Mi nuevo caption'__REMOVE:

\'__REMOVE:\s*\=\s*\'.*\' -> '

(Aclaro que esto no está documentado, y puede que exista una mejor forma de hacerlo hasta con expresiones regulares.)

En la primera regla, se cambia la propiedad "Caption" por "Caption = 'Mi nuevo caption'__REMOVE", añadiendo tanto el nuevo valor como la marca "__REMOVE" para ser usada en la segunda regla

Si solo ejecutara el refind con esa primera regla obtendría en el dfm el siguiente resultado

Código:

object Form1: TForm1

  Caption = 'Form1'

  object Label1: TLabel

    Caption = 'Mi nuevo caption'__REMOVE: = 'Label1'

  end

  object Button1: TButton

    Caption = 'Button1'

  end

  object RadioButton1: TRadioButton

    Caption = 'RadioButton1'

  end

end

Lo que generaría error al abrir el archivo, por eso es necesaria la segunda regla, que corrige ese error.

La segunda regla se encarga de borrar desde la marca "__REMOVE" hasta el final de la línea y así obtenemos

Código:

object Form1: TForm1

  Caption = 'Form1'

  object Label1: TLabel

    Caption = 'Mi nuevo caption'

  end

  object Button1: TButton

    Caption = 'Button1'

  end

  object RadioButton1: TRadioButton

    Caption = 'RadioButton1'

  end

end