Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32) | ||
Componente no visual que permite crear Logs del programa en ejecución.
Propiedades:
DateTimeMask: Máscara de la fecha/hora que aparecerá en los mensajes.
FileName: Nombre del fichero Log. En caso de que no se ponga nada el componente creará un fichero con nombre aleatorio en el directorio actual.
Memory: Los mensajes se guardan en memoria(True) o no (False).
MessageColors: Colores utilizados en la ventana Viewer para mostrar los distintos mensajes.
Open: Los mensajes se guardan en el fichero especificado en FileName siempre que su valor no sea foNone. Los valores posibles son:
foNone | No se crea fichero |
foAppend | El fichero existe y se continua escribiendo al final. |
foCreate | Se crea un fichero nuevo. Si el fichero existía, se sobreescribe |
Viewer: Muestra/Oculta una ventana donde se van mostrando los mensajes (True/False).
Active : Activa/Desactiva (True/False) el componente.
Métodos :
Error : Escribe un mensaje del tipo 'ERROR 23/06/2003 17:19:35.030 :---[Mensaje]---'Eventos:
Info : Escribe un mensaje del tipo '23/06/2003 17:19:35.030 :---[Mensaje]---'
Single : escribe sólo el texto que se le envía como parámetro.
PropValue : Dos posibilidades dependiendo de los parámetros que se le pasen.
Opción 1 : PropValue(control,propiedad) : escribe un mensaje con el valor de la propiedad del control :View : Devuelve un TStringList con los mensajes.
'VALUE Nombre_Control 23/06/2003 17:19:35.030 :---[propiedad=Valor]---'
Opción 2 : PropValue(propiedad) : escribe el valor de la propiedad de todos los controles del form que tengan dicha propiedad : Por ejemplo
PropValue('Text') podría devolver :
'VALUES Text [23/06/2003 17:19:35.030]
Edit1=Cosas de casa
Edit2=Otro texto
PropValue('Enabled') podría devolver :
'VALUES Enabled [23/06/2003 17:19:35.030]
Edit1=True
Edit2=False
CheckBox1=true
ClearViewer : Borra el contenido de la ventana Viewer.
OnActive : Se produce cuando se activa el componente.
OnDeActive : Se produce suando se desactiva el componente.
Ejemplo
Nota : La ventana Viewer tiene un menú de contexto con las opciones de 'Limpiar' , 'Guardar como...' y 'Guardar texto plano como ...'.