seguimiento de una varialbe

[roman]

Empezado por marcoszorrilla

Estos son los valores que devuelve una variable de tipo lógica aplicando la interesante nomenclatura de Román, en honor a él he llamado a la variable de prueba lRoman, como se vé aquí hemos llegado al sumum de la artesanía, un visor totalmente artesanal y un doble moldeado de datos.

Y por cierto, dicho valor 32 (204 en mi caso) es de hecho útil ya que nos indicará que pasamos por alto el mensaje del compilador:

[Warning] Unit1.pas (n) Variable 'lRoman' might not have been initialized

// Saludos

[roman]

Ahora que entiendo que el visor artesanal en el que estamos trabajando es típico de lo que haría un programador en C en donde 0 es false y distinto de cero es true. Si queremos algo más de estilo Pascal podríamos usar:

// bZorrilla es una variable booleana

ShowMessage(Chr((Ord('T') - Ord('F'))*Integer(bZorrilla) + Ord('F')));

que nos mostraría 'F' si la variable es false y 'T' si es true. Obviamente podemos sustituir 'T' y 'F' por 'Y' y 'N' ('Yes' o 'No') o por 'S' y 'N' ('Sí' o 'No') según convenga a nuestros intereses.

De hecho podemos omitir totalmente el uso de funciones auxiliares como IntToStr, Chr u Ord y utulizar exclusivamente moldeo de tipos:

ShowMessage(Char((Integer('T') - Integer('F'))*Integer(bZorrilla) + Integer('F')));

// Saludos

[__cadetill]

Perdón por el Off Topic, pero, es que Román, cada día se te va más la pelota

(de buen rollo, eh!!!! )

PD: me ha encantado tu solución

[Investment]

Como anda el patio...

Personalmente yo no iria mostrando mensajes porque al final vas a acabar un poco harto de tanto aceptar. Pondria una etiqueta en el formulario y le daria valor en cada procedimiento:

if leyendo then
lbLeyendo.caption:= 'Verdadero'
else
lbLeyendo.caption:= 'Falso'

[kinobi]

Hola,

Aunque no es exactamente lo que se pide, también podría ser de utilidad el procedimiento Assert, muy utilizada en C:

  procedure Assert(expr : Boolean [; const msg: string]);

De la ayuda en línea (de Delphi):

"In Delphi code, use Assert as a debugging tool to test that conditions assumed to be true are never violated. Assert provides an opportunity to intercept an unexpected condition and halt a program rather than allow execution to continue under unanticipated conditions.

Assert takes a Boolean expression and an optional message string as parameters. If the Boolean test fails, Assert raises an EAssertionFailed exception. If a message string was passed to Assert, the exception object is created with that string. Otherwise it is created with a default string indicating that the assertion failed. The message is displayed along with the complete path, filename, and the line number on which Assert failed."

Saludos

[marcoszorrilla]

Tengo que decir a lo que propone Investment que yo lo utilizo cuando se trata por ejemplo de un bucle o se va mostrar em muchos sitios, incluso un memo y así luego podemos ir recorriendo los valores.

Un Saludo.