como saber el valor que muestra un edit

[alquimista]

Amigo creo que puedes reducir tu código un poco:

Código Delphi [-]
if edit1.Text = IntToStr(0) then
   inc(contador)
            else
  contador := 0;

            if contador = 30 then beep;

Prueba a ver que debe de hacer lo mismo.
Si pones IntToStr(0) te da igual haber puesto if edit1.Text ='0'

Un saludo

[roman]

Y ya entrados en gastos de reducción de código, la comparación

Código Delphi [-]
if edit1.Text = IntToStr(0) then

queda más sencilla así:

Código Delphi [-]
if edit1.Text = '0' then

Así evitas una llamada a función.

// Saludos

[[Delphius]]

Disculpen que interrumpa el debate, pero no puedo sentirme un tanto inquieto por las soluciones que se han estado brindando.

Se ha recomendado hacer uso del evento OnChange, pero me parece fundamental tener presente algo: el evento OnChange se dispara con cada cambio en el TEdit, por tal motivo debe analizarse la forma en el que el TEdit recibe el contenido.

No es lo mismo recibir las pulsaciones de una persona, que el valor de forma directa desde alguna variable, función o algún método de un objeto.
Si el valor lo teclea una persona puede llegarse a detectar lecturas erróneas: digamos que quiere teclear 35; el evento se dispará dos veces: 1) cuando presione 3, donde el valor leído sera 3, y 2) cuando presione 5, donde el valor recién será de 35.

Si el contenido en cambio es leído de forma directa por algún otro medio, la lectura si es posible.

Puede que gaston260 haya resuelto su duda, al parecer recibe los datos de forma directa. Eso es bueno, ¿pero si así no lo fuera?

Saludos,

[gaston260]

Gracias delphius !! esas explicaciones son las que me hicieron ser un seguidor tuyo , no pretendo ser un "chupa medias" pero se nota que estas muy instruido y la verdad es un gusto poder leer cada linea de lo que escribes ! , con respecto al tema yo no use el evento onchange simplemente por que queria que se ejecutara mi condicion en otro punto del codigo ! , y no se estas cosas vasicas que me explicas !! gracias por el aporte amigo !

[[Delphius]]

Empezado por gaston260

Gracias delphius !! esas explicaciones son las que me hicieron ser un seguidor tuyo , no pretendo ser un "chupa medias" pero se nota que estas muy instruido y la verdad es un gusto poder leer cada linea de lo que escribes ! , con respecto al tema yo no use el evento onchange simplemente por que queria que se ejecutara mi condicion en otro punto del codigo ! , y no se estas cosas vasicas que me explicas !! gracias por el aporte amigo !

¿Seguidor?
Gaston260 no se has estado fumando, tomando, o consumiendo pero te advierto que no es bueno seguirme demasiado la corriente. Falta que me digas que quieres ser como yo... ¡el mundo ya tiene suficiente con un Delphius y NewDelphius, otro más en el mundo sería un ataque de locura global!

¿Muy instruído?
¡Por dios, estás enfermo! ¡No estoy instruído, estoy destruído! Pero que no cunda el pánico... tengo la cura: te me sales afuera de casa, te vas al centro a pasear, te distraes con los paisajes, llama a alguien y pasa un buen momento. La dosis debe ser una vez a la semana, si la locura aumenta dobla la dosis... y debes estar afuera por no menos de 4 horas.

Saludos y gracias por el pedacito que me toca.

[gaston260]

jajaja Amigo si piensas que fumo espirales jajaja no es haci ! pero no seas tan modesto por favor ! es muy bueno tener a alguien como vos en el foro ! y te lo digo por que cuando explicas algo lo haces y ademas explicas como funciona ! , no te das cuenta el gran aporte que haces ! , yo no quiero ser como nadie por que simplemente soy yo ! jejeje te repito que cuando explicas algo ademas lo haces dando la explicasion del porque ! y como lo explicas sin ser sobervio ni nada por el estilo eso ami me gusta no se a los demas usuarios del foro ? , recuerdo que una vez pedi si me podias responder vos ! jajaja nunca me respondiste amigo ! bueno los maestros son haci ! no los podes entender bien si no estas en sus "zapatos" ! bueno pido un club de fans !! jajaja ha con respecto a la docis ... no hay problema ! esta cubierta ! jajaja

pd : saludos amigo , si me respondes te ago una pregunta de programacion !