FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Ejecución de cógido solo en IDE
Cuando estoy en un entorno de desarrollo uso la directiva {$DEFINE DEBUG} para
habilitar ciertas partes del código y en el momento de compilar elimino dicha línea para que las partes especiales no sean incluídas. No se si me explico, por las dudas incluyo un ejemplo. Código:
unit ULogin; {$DEFINE DEBUG} ... procedure TfrmLogin.Label1Click(Sender: TObject); begin leUsuario.Text := 'MiUsuario'; leClave.Text := 'MiClave'; end; procedure TfrmLogin.FormShow(Sender: TObject); begin {$IFDEF DEBUG} Label1.Visible := True; {$ELSE} Label1.Visible := False; {$ENDIF} end; y contraseña al hacerle un clic. En un entorno de desarrollo la directiva de compilación $DEFINE me habilita el label y en el momento de pasar a producción elimino la directiva para que el label no sea habilitado. A pesar de que el usuario MiUsuario con clave MiClave no existen en el entorno de producción no es deseable que por un olvido al compilar los usuarios finales accedan a esta funcionalidad. Mi pregunta es, ¿conocen alguna forma más flexible para que cierta porción de código solo se encuentre disponible dentro del IDE y desaparezca una vez compilada la aplicación? Gracias por todo.
__________________
"Fools are the only folks on earth who can absolutely count on getting what they deserve" S.K. |
|
|
|