Ver Mensaje Individual
  #1  
Antiguo 01-08-2005
Avatar de fryguy
fryguy fryguy is offline
Miembro
 
Registrado: mar 2004
Posts: 18
Reputación: 0
fryguy Va por buen camino
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;
Este código habilita o deshabilita una label con me completa los campos usuario
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.
Responder Con Cita