Hola.
Una idea que utilizo hace mucho tiempo es la siguiente:
Tengo una función que llamo Initialize y que tiene (entre otras cosas)
FUNCTION trueSoftInitialize( lInstalaFonts ) AS VOID
PUBLIC _C3_SYSDATA[ _C3_SYSDATA_SIZE ]
C3.AppName := 'trueSoft'
C3.AppCaptionname := C3.AppName
C3.AppCopyright := 'Ñ Servicios Informáticos, Soc. Coop.'
C3.AppStartPath := ExtractFilePath( Application:ExeName )
........
RETURN
En un fichero CH guardo:
MEMVAR _C3_SYSDATA
#define _C3_SYSDATA_SIZE 40
#xtranslate C3.AppStartPath => _C3_SYSDATA\[ 8\]
#xtranslate C3.AppName => _C3_SYSDATA\[ 9\]
#xtranslate C3.AppCaptionName => _C3_SYSDATA\[ 11\]
#xtranslate C3.AppCopyright => _C3_SYSDATA\[ 12\]
Con esto defino UNA sola variable publica y puedo tener las que necesite solo con modificar el tamaño de C3_SYSDATA_SIZE
y definir los translate adecuados.
El código en la aplicación queda muy claro.
Saludos
_________________ Un saludo.
Jesús P. Melgar Velasco
|