![]() |
![]() |
| Paypal | 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. |
|
|
|