gracias
 
Neftali..

Ricardo Cabra

--- El jue, 22/5/08, Neftalí <German_RAL@...> escribió:

De: Neftalí <German_RAL@...>
Asunto: RE: [Delphi] Aplicaciones Multi Lenguaje
Para: DesarrolloDelphi@...
Fecha: jueves, 22 mayo, 2008 4:02







    Depende un poco del volumen de la aplicación y del número de lenguajes que
debas implementar.
    Puedes internacionalizar cualquier aplicación en Delphi sin problemas.
Puedes utilizar el wizard que viene con el propio Delphi (aunque yo no lo
encuentro muy intuitivo), paquetes comerciales tipo siLang (de los mejores que
he visto) o algun paquete gratuíto (que hay muchos) que te facilite el trabajo.
 
    A parte de eso y de las x horas de programación que te añada (depende como
he dicho del volumen de form y constantes que tengas), deberás contar que debes
traducir esos textos.
    Puede ser que tengas alguien que lo haga o incluso, si la empresa tiene
sucursales en otros países puedes encargarle que lo hagan sus empleados. Si
ninguna de esas opciones es viable debes contar que deberás contratar los
servicios de traductores que te hagan ese trabajo. Ese costo también dependerá
del volumen a traducir.
 
Un saludo.
 

____________ _________ _________
Neftalí -Germán Estévez-
http://neftali. clubdelphi. com/

 






Hola   Compañeros
estamos desarrollando un aplicativo para una compañia la cual nos pide un
requerimiento muy "ESPECIAL"
el aplicativo debe ser multilenguaje, dado que ellos tiene presencia en varios
paises, y pues para facilidad de los usuarios. y demas...
no hemos confirmado aun si podemos hacer esto o no, hasta estar seguros que
implicaciones nos traeria, como programacion extra, tiempo,  en fin  todo
termina siendo Costo$$$$$
mi pregunta es...como se puede hacer esto???
gracias

Ricardo Cabra


















       ______________________________________________
Enviado desde Correo Yahoo! La bandeja de entrada más inteligente.

---

De: DesarrolloDelphi@... [mailto:DesarrolloDelphi@...] En nombre de Pablo Zagni
Enviado el: jueves, 22 de mayo de 2008 4:24
Para: DesarrolloDelphi@...
Asunto: Re: [Delphi] Componente DBAware para mostrar una imagen

Neftalí

Si! ya lo sé! pero tengo un componente TCtrlGrid donde quiero mostrar la imágen correspondiente a cada campo.. no sé como asignarla....

 

Hola   Compañeros estamos desarrollando un aplicativo para una compañia la cual nos pide un requerimiento muy "ESPECIAL" el aplicativo debe ser multilenguaje, dado que ellos tiene presencia en varios paises, y pues para facilidad de los usuarios. y demas... no hemos confirmado aun si podemos hacer esto o no, hasta estar seguros que implicaciones nos traeria, como programacion extra, tiempo,  en fin  todo termina siendo Costo$$$$$ mi pregunta es...como se puede hacer esto??? gracias Ricardo Cabra

Pues un Timage te iría bien creo yo. Y cargar una imagen u otra dependiendo
del valor del campo.

____________________
Neftalí -Germán Estévez-

>>Tengo un campo en un query que puede ser 1, 2, 3, 4 o 5.
>>En base a ese valor, quiero mostrar una imágen si es 1, otra si es 2,
>>y así hasta 5. O sea, que tengo una imágen para cada valor.
>>Qué componente debo utilizar?

__________ Información de NOD32, revisión 3118 (20080521) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Pues un Timage te iría bien creo yo. Y cargar una imagen u otra dependiendo
del valor del campo.

____________________
Neftalí -Germán Estévez-


>>Tengo un campo en un query que puede ser 1, 2, 3, 4 o 5.
>>En base a ese valor, quiero mostrar una imágen si es 1, otra si es 2,
>>y así hasta 5. O sea, que tengo una imágen para cada valor.
>>Qué componente debo utilizar?

porqué no regresas en el query la imagen dependiendo del valor del campo 1-5?
Saludos,
Daniel Hernández.
San Diego, CA.
"The more you learn, more you earn".
--- On Wed 05/21, Pablo Zagni < fuelsoft@... > wrote:
From: Pablo Zagni [mailto: fuelsoft@...]
To: DesarrolloDelphi@...
Date: Wed, 21 May 2008 13:20:03 -0300
Subject: [Delphi] Componente DBAware para mostrar una imagen
Hola amigos
Tengo un campo en un query que puede ser 1, 2, 3, 4 o 5.
En base a ese valor, quiero mostrar una imágen si es 1, otra si es 2, y
así hasta 5. O sea, que tengo una imágen para cada valor.
Qué componente debo utilizar?
Saludos
Z
_______________________________________________
Join Excite! - http://www.excite.com
The most personalized portal on the Web!
------------------------------------
==================================
El Blog de Pablo Fernando Sanchez:
http://pfsanchez.blogspot.com/
==================================Enlaces a Yahoo! Grupos
<*> Para visitar tu grupo en la web, ve a:
http://ar.groups.yahoo.com/group/DesarrolloDelphi/
<*> La configuración de tu correo:
Mensajes individuales | Tradicional
<*> Para modificar la configuración desde la Web, visita:
http://ar.groups.yahoo.com/group/DesarrolloDelphi/join
(ID de Yahoo! obligatoria)
<*> Para modificar la configuración mediante el correo:
mailto:DesarrolloDelphi-digest@... mailto:DesarrolloDelphi-fullfeatured@...
<*> Para cancelar tu suscripción en este grupo, envía un mensaje en blanco a:
DesarrolloDelphi-unsubscribe@...
<*> El uso que hagas de Yahoo! Grupos está sujeto a
las Condiciones del servicio de Yahoo!:
http://ar.docs.yahoo.com/info/utos.html
__________ Información de NOD32, revisión 3117 (20080521) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

porqué no regresas en el query la imagen dependiendo del valor del campo 1-5?

Saludos,

Daniel Hernández.
San Diego, CA.
"The more you learn, more you earn".

  --- On Wed 05/21, Pablo Zagni < fuelsoft@... > wrote:
From: Pablo Zagni [mailto: fuelsoft@...]
To: DesarrolloDelphi@...
Date: Wed, 21 May 2008 13:20:03 -0300
Subject: [Delphi] Componente DBAware para mostrar una imagen

Hola amigos

Tengo un campo en un query que puede ser 1, 2, 3, 4 o 5.
En base a ese valor, quiero mostrar una imágen si es 1, otra si es 2, y
así hasta 5. O sea, que tengo una imágen para cada valor.

Qué componente debo utilizar?

Saludos
Z


_______________________________________________
Join Excite! - http://www.excite.com
The most personalized portal on the Web!

Hola Jose...
Gracias por tu respuesta.
Pruebo y te cuento.
Nuevamente, gracias.
Saludos.
Walter.
>
>
> Walter
> Creo que el error se soluciona así
>
> ...
>
> If  (NUMEROA >= 999) THEN
>   SET GENERATOR GEN_VALORES_ MOV_A_ID TO 0 ;
>
> If (NUMEROB >= 9999) THEN
>    SET GENERATOR GEN_VALORES_ MOV_B_ID TO 1001 ;
>
> *******************************
> No entiendo muy bien porque cambiás el valor de NUMEROA, porque solo lo
> usas para el if
> así compila de una
>
>
> Jose S. Romero
> Analista de Sistemas - RHCT
> Paraná - Entre Ríos - Argentina
>
>
> ----- Mensaje original ----
> De: Walter <wmeson@...>
> Enviado: miércoles 14 de mayo de 2008, 11:42:57
> Asunto: [Delphi] Modificar valor de generador mediante trigger en
> Firebird 2.0 con Delphi 5
>
> Hola amigos...
> Tengo dos generadores (GEN_VALORES_ MOV_A_ID y GEN_VALORES_ MOV_B_ID; ) en
> Firebird a los cuales consulto desde mi aplicación y guardo sus valores
> en una tabla (campo NUMERO_INT).
> Mi tabla tiene además, un campo (LETRA_INT) que guarda los siguientes
> valores : 'A', 'B' o 'N'.
> Dependiendo de la letra que guarda en LETRA_INT, disparo un generador y
> guardo su valor en el campo NUMERO_INT, por ejemplo :
>
> Si el campo LETRA_INT = 'A'
> Genero y guardo el valor del generador GEN_VALORES_ MOV_A_ID en el
> campo NUMERO_INT.
>
> Si el campo LETRA_INT='B'
> Genero y guardo el valor del generador GEN_VALORES_ MOV_B_ID en el
> campo NUMERO_INT.
>
> Campo LETRA_INT='N'
> No genero nada, el campo NUMERO_INT guarda el valor 0.
>
> Hasta aqui, todo va perfecto, el tema está que los generadores deben
> estar limitados, por ejemplo :
> GEN_VALORES_ MOV_A_ID debe ir desde 0 a 999, llegado al limite, debe
> volver a 0.
> GEN_VALORES_ MOV_B_ID debe ir desde 1001 a 9999, llegado al limite, debe
> volver a 1001.
>
> Este es el código que estoy programando dentro del trigger :
>
> SET SQL DIALECT 3;
>
> SET NAMES ISO8859_1;
>
> CREATE GENERATOR GEN_VALORES_ MOV_A_ID;
> CREATE GENERATOR GEN_VALORES_ MOV_B_ID;
>
> SET TERM ^ ;
>
> CREATE OR ALTER TRIGGER VALORES_MOV_ NRO_INTERNO_ VAL_BI FOR VALORES_MOV
> ACTIVE AFTER INSERT POSITION 0
> AS
> DECLARE VARIABLE NUMEROA SMALLINT;
> DECLARE VARIABLE NUMEROB SMALLINT;
> begin
> NUMEROA = GEN_ID(GEN_VALORES_ MOV_A_ID, 0);
> NUMEROB = GEN_ID(GEN_VALORES_ MOV_B_ID, 0);
>
> /*********** ** hasta aqui, compila perfecto ************ */
>
> If (NUMEROA > 999) THEN NUMEROA = 0 THEN
> SET GENERATOR GEN_VALORES_ MOV_A_ID TO 0 ;
>
> If (NUMEROB >= 9999) THEN
> SET GENERATOR GEN_VALORES_ MOV_B_ID TO 1001 ;
> end
> ^
>
> SET TERM ; ^
>
> Este proceso lo quiero hacer mediante un trigger dentro de Firebird,
> pero no me permite compilarlo, dándome el error :
> Invalid token.
> Dynamic SQL Error.
> SQL error code = -104.
> Token unknown - line 10, column 4.
> SET.
> Ya lo cambié por los comandos ALTER SECUENCE y me sigue dando el mismo
> error, lo cual, no lo puedo hacer andar, ¿alguna sugerencia.. .?.
> Desde ya, muchas gracias.
> Walter.
>
>
> __________________________________________________
> Correo Yahoo!
> Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
> ¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar
>

Hola...
Yo nuevamente...
Este es el código de mi trigger que ahora compila, pero cuando inserto
un registro en una tabla, se disparan los generadores, pero los valores
de los mismos no vuelven a su valor de inicio, si no que siguen sumando :

CREATE TRIGGER VALORES_MOV_NRO_INTERNO_VAL_BI FOR VALORES_MOV
ACTIVE AFTER INSERT
POSITION 0
AS
DECLARE VARIABLE NUMEROA_NEW INTEGER;
DECLARE VARIABLE NUMEROB_NEW INTEGER;
DECLARE VARIABLE NUMEROA_OLD INTEGER;
DECLARE VARIABLE NUMEROB_OLD INTEGER;
begin
NUMEROA_OLD = GEN_ID(GEN_VALORES_MOV_A_ID, 0);       /* El rango debe
ser de 0 a 999 */
NUMEROB_OLD = GEN_ID(GEN_VALORES_MOV_B_ID, 0);       /* El rango debe
ser de 1001 a 9999 */
NUMEROA_NEW = ( NUMEROA_OLD + -NUMEROA_OLD);         /* Resetea el
contador a 0*/
NUMEROB_NEW = ( NUMEROB_OLD + (-NUMEROB_OLD + 1001));/* Resetea el
contador a 1001*/

If (NUMEROA_OLD >= 999) THEN
      NUMEROA_OLD = GEN_ID(GEN_VALORES_MOV_A_ID, NUMEROA_NEW);
      /* Aqui debería volver el generador a 0*/

If (NUMEROB_OLD >= 9999) THEN
      NUMEROB_OLD = GEN_ID(GEN_VALORES_MOV_B_ID, NUMEROB_NEW);
      /* Aqui deberia volver el generador a 1001*/

No le encuentro la vuelta de porqué no se vuelven a los valores de
inicio cuando llegan a los limites.
Utilizo Delphi 5 Enterprise y Firebird 2.0.
Gracias nuevamente.
Saludos.
Walter.

Hola: soy Andrea Almeida y me interesa la solicitud, donde debo presentar el curriculum y tener mas datos sobre el empleo.

Desde ya muchas gracias.

Saludos

Andrea

----Mensaje original----
De: rodomono@...
Fecha: 14/05/2008 12:44
Para:
Asunto: [Delphi] Ofrecimiento de trabajo

Se necesita programador Delphi con experiencia, full-time, part-time o
free-lance para desarrollar aplicaciones sencillas. Lugar de trabajo:
Moreno (Prov. Bs. Aires). Remuneración a convenir

Se necesita programador Delphi con experiencia, full-time, part-time o
free-lance para desarrollar aplicaciones sencillas. Lugar de trabajo:
Moreno (Prov. Bs. Aires). Remuneración a convenir

Hola amigos...
Tengo dos generadores (GEN_VALORES_MOV_A_ID y GEN_VALORES_MOV_B_ID;) en
Firebird a los cuales consulto desde mi aplicación y guardo sus valores
en una tabla (campo NUMERO_INT).
Mi tabla tiene además, un campo (LETRA_INT) que guarda los siguientes
valores : 'A', 'B' o 'N'.
Dependiendo de la letra que guarda en LETRA_INT, disparo un generador y
guardo su valor en el campo NUMERO_INT, por ejemplo :

Si el campo LETRA_INT = 'A'
        Genero y guardo el valor del generador GEN_VALORES_MOV_A_ID en el
    campo NUMERO_INT.

Si el campo LETRA_INT='B'
        Genero y guardo el valor del generador GEN_VALORES_MOV_B_ID en el
campo NUMERO_INT.

Campo LETRA_INT='N'
        No genero nada, el campo NUMERO_INT guarda el valor 0.

Hasta aqui, todo va perfecto, el tema está que los generadores deben
estar limitados, por ejemplo :
GEN_VALORES_MOV_A_ID debe ir desde 0 a 999, llegado al limite, debe
volver a 0.
GEN_VALORES_MOV_B_ID debe ir desde 1001 a 9999, llegado al limite, debe
volver a 1001.

Este es el código que estoy programando dentro del trigger :

SET SQL DIALECT 3;

SET NAMES ISO8859_1;

CREATE GENERATOR GEN_VALORES_MOV_A_ID;
CREATE GENERATOR GEN_VALORES_MOV_B_ID;

SET TERM ^ ;

CREATE OR ALTER TRIGGER VALORES_MOV_NRO_INTERNO_VAL_BI FOR VALORES_MOV
ACTIVE AFTER INSERT POSITION 0
AS
DECLARE VARIABLE NUMEROA SMALLINT;
DECLARE VARIABLE NUMEROB SMALLINT;
begin
NUMEROA = GEN_ID(GEN_VALORES_MOV_A_ID, 0);
NUMEROB = GEN_ID(GEN_VALORES_MOV_B_ID, 0);

/************* hasta aqui, compila perfecto *************/

If (NUMEROA > 999) THEN NUMEROA = 0 THEN
     SET GENERATOR GEN_VALORES_MOV_A_ID TO 0 ;

If (NUMEROB >= 9999) THEN
     SET GENERATOR GEN_VALORES_MOV_B_ID TO 1001 ;
end
^

SET TERM ; ^

Este proceso lo quiero hacer mediante un trigger dentro de Firebird,
pero no me permite compilarlo, dándome el error :
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 10, column 4.
SET.
Ya lo cambié por los comandos ALTER SECUENCE y me sigue dando el mismo
error, lo cual, no lo puedo hacer andar, ¿alguna sugerencia...?.
Desde ya, muchas gracias.
Walter.

Creería que no y el fundamento sería que hasta donde sé, el propio Windows no sabe manejar multi cursores lo cual es la base del multi point del iPhone y otros dispositivos similares.

----- Mensaje original ----
De: Pablo Zagni <fuelsoft@yahoo.com.ar>
Para: DesarrolloDelphi@gruposyahoo.com.ar
Enviado: miércoles 7 de mayo de 2008, 14:52:20
Asunto: [Delphi] Touchscreen

Amigos

En lo general, trato que mis aplicaciones sirvan para utilizar con touchscreen (diseño botones apropiados, etc)

Ahora... vieron el iPhone? haciendo "click" con los 2 dedos, te permite achicar una foto si juntas los dedos, rotarla si rotás los dedos... y la pantalla... si clickeas y arrastras para la derecha, avanza de página... es hermoso...
Además.. los efectos son hermosos...
Se pueden ver acá
http://www.youtube. com/watch? v=s_f-KK140vM
http://www.youtube. com/watch? v=8kwmEIctuUw


La pregunta es... hay algo así diseñado para delphi??

Saludos
Z

---

Yahoo! Deportes Beta
¡No te pierdas lo último sobre el torneo clausura 2008!
Enterate aquí http://deportes.yahoo.com

__________ Informaci�n de NOD32, revisi�n 3083 (20080507) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Saludos
Por casualidad saben dónde puedo bajar una lista con todos los países para
montar en una DB





Este correo ha sido analizado por el antivirus empresarial de Terramix  S.A.

> > Tengo en un formulario un RxDBLookUpCombo el cual
> no
> > se como configurarlo para que me permita mediante
> el
> > boton que posee desplegar la lista de datos que
> tiene.
>
> > DisplayEmpty --> en esta pongo un valor que debe
> tener
> > por defecto si la lista no tiene nada. Este es el
> > unico dato que me muestra cuando ejecuta la
> > aplicacion.
> En realidad, esta propiedad es la que te muestra
> como si fuera una
> "etiqueta" del combo, tenga o no datos, en mi caso,
> yo siempre le pongo
> leyendas tipo "Seleccione su opción", creo que si no
> hay datos, guarda
> el valor como empty.
> >
> > LookupDisplay --> aca pondo el campo que quiero
> > mostrar en la lista de datos.
> Ok.
> > LookupField --> este lo lleno con el codigo de lo
> que
> > se muestra.
> Esta propiedad es la que contiene el valor que
> querés guardar, es decir,
> si en tu tabla tenés un campo, por ejemplo,
> CODIGO_CLIENTE, el código
> que guararias en ese campo seria el del LookupField
> y lo podés guardar asi :
> Tabla.FieldByName('CODIGO_CLIENTE').AsInteger :=
> StrToInt(RxDBLookUpCombo.Value); //Esta propiedad es
> un variant.
> Si tambien querés guardar lo que visualizás en el
> RxDBLookUpCombo, lo
> podés hacer con la propiedad
> RxDBLookUpCombo.DisplayValues.
> > LookupSource --> este hace referencia a un
> DataSource
> > que esta conectado con el ClientDataSet que tiene
> los
> > datos.
> Ok.

Lo que dices es correcto porque yo tambien lo uso
asi... Justo ayer sin ver este mensaje pude solucionar
el problema, el cual era por la propiedad
LookupDisplay que tenia seteada. Al sacarle lo que
tenia y dejarla en blanco todo funciono nuevamente
como tiene que ser.

Igual gracias por la ayuda.

Saludos,
El Rayo


.:::::::::::::::::::::::::::::::::::::::::::::::::::::::.
.::          Desarrollador: Delphi con Oracle         ::.
.::        PHP/JavaScript/Ajax con Oracle/MySQL       ::.
.::                                                   ::.
.::      Administrador del gupo Delphi-Argentina      ::.
.::        Delphi-Argnetina@...        ::.
.:: http://ar.groups.yahoo.com/group/Delphi-Argentina ::.
.:::::::::::::::::::::::::::::::::::::::::::::::::::::::.


       Tarjeta de crédito Yahoo! de Banco Supervielle.
Solicitá tu nueva Tarjeta de crédito. De tu PC directo a tu casa.
www.tuprimeratarjeta.com.ar

> Hola amigos...
Hola...
> Tengo en un formulario un RxDBLookUpCombo el cual no
> se como configurarlo para que me permita mediante el
> boton que posee desplegar la lista de datos que tiene.

> DisplayEmpty --> en esta pongo un valor que debe tener
> por defecto si la lista no tiene nada. Este es el
> unico dato que me muestra cuando ejecuta la
> aplicacion.
En realidad, esta propiedad es la que te muestra como si fuera una
"etiqueta" del combo, tenga o no datos, en mi caso, yo siempre le pongo
leyendas tipo "Seleccione su opción", creo que si no hay datos, guarda
el valor como empty.
>
> LookupDisplay --> aca pondo el campo que quiero
> mostrar en la lista de datos.
Ok.
> LookupField --> este lo lleno con el codigo de lo que
> se muestra.
Esta propiedad es la que contiene el valor que querés guardar, es decir,
si en tu tabla tenés un campo, por ejemplo, CODIGO_CLIENTE, el código
que guararias en ese campo seria el del LookupField y lo podés guardar asi :
Tabla.FieldByName('CODIGO_CLIENTE').AsInteger :=
StrToInt(RxDBLookUpCombo.Value); //Esta propiedad es un variant.
Si tambien querés guardar lo que visualizás en el RxDBLookUpCombo, lo
podés hacer con la propiedad RxDBLookUpCombo.DisplayValues.
> LookupSource --> este hace referencia a un DataSource
> que esta conectado con el ClientDataSet que tiene los
> datos.
Ok.
> Tambien les puedo decir que el ClientDataSet tiene
> datos y mas de uno por lo cual no se porque no me
> permite ingresar a la lista el componente.
>
Al menos yo lo uso asi y no he tenido problemas, si estoy equivocado,
por favor, corrijanme.
> Saludos,
Saludos.
> El Rayo
Walter.

Hola amigos...

Tengo en un formulario un RxDBLookUpCombo el cual no
se como configurarlo para que me permita mediante el
boton que posee desplegar la lista de datos que tiene.

Paso a detallar como tengo configuradas las
propiedades del mismo:

DisplayEmpty --> en esta pongo un valor que debe tener
por defecto si la lista no tiene nada. Este es el
unico dato que me muestra cuando ejecuta la
aplicacion.

LookupDisplay --> aca pondo el campo que quiero
mostrar en la lista de datos.

LookupField --> este lo lleno con el codigo de lo que
se muestra.

LookupSource --> este hace referencia a un DataSource
que esta conectado con el ClientDataSet que tiene los
datos.

Tambien les puedo decir que el ClientDataSet tiene
datos y mas de uno por lo cual no se porque no me
permite ingresar a la lista el componente.

Si alguno tiene o sabe de donde sacar un ejemplo se lo
agradeceria mucho.

Saludos,
El Rayo

.:::::::::::::::::::::::::::::::::::::::::::::::::::::::.
.::          Desarrollador: Delphi con Oracle         ::.
.::        PHP/JavaScript/Ajax con Oracle/MySQL       ::.
.::                                                   ::.
.::      Administrador del gupo Delphi-Argentina      ::.
.::        Delphi-Argnetina@...        ::.
.:: http://ar.groups.yahoo.com/group/Delphi-Argentina ::.
.:::::::::::::::::::::::::::::::::::::::::::::::::::::::.


       Tarjeta de crédito Yahoo! de Banco Supervielle.
Solicitá tu nueva Tarjeta de crédito. De tu PC directo a tu casa.
www.tuprimeratarjeta.com.ar

No te entiendo.. pero yo haría:

Var
   lPrendido : Boolean;

oncreate
   lPrendido := False

on timer tick
if lPrendido then
   Label = 'x'
else
   Label = 'y';
lPrendido := not lPrendido


Saludos

Z

Hector Del Mestre escribió:
>
> Lista:
>
> Tengo un componente TTimer y un label.
> Al timer le setee la propiedad interval en 15000 (15 segundos).
> El fin de esta pequeña aplicacion:
> Que cada x cantidad de segundos me escriba en al label una 'X' o una
> 'Y'. Imaginen coordenas cartesinas
> Coordenas
> Arranca en cero, a los 15' escribe una 'X', a los 30', nada, a los 45'
> escribe una 'Y' y asi sucesivamente.
> Al codigo me lo pasaron, no lo he hecho yo, aprovecho la oportunidad que
> algunos no tienen de poder suscribirse a una lista y poder saber algo mas.
> Mas datos de la aplicación:
> control, variable entera, declarada como global e inicializada a cero
> band, variable booleana, declarada como global e inicializada en True.
>
> Codigo
>
> *procedure* TForm1.Button1Click(Sender: TObject);
> begin
> control := control + 1;
>
> if ((control mod 2 <> 0)and(band = True)) then //es impar
> begin
> label1.Caption := 'X';
> end;
>
> if ((control mod 2 = 0)and(band = True)) then
> begin
> band := false;
> end;
>
> if ((control mod 2 <> 0)and(band = False)) then
> begin
> label1.Caption := 'Y';
> end;
>
> if ((control mod 2 = 0)and(band = False)) then
> begin
> band := True;
> end;
> *end;*
>
> Espero sepan interpretar la inquietud.
>
> Hector.
>
>

Lista:

Tengo un componente TTimer y un label.
Al timer le setee la propiedad interval en 15000 (15 segundos).
El fin de esta pequeña aplicacion:
Que cada x cantidad de segundos me escriba en al label una 'X' o una
'Y'. Imaginen coordenas cartesinas
Coordenas
Arranca en cero, a los 15' escribe una 'X', a los 30', nada, a los 45'
escribe una 'Y' y asi sucesivamente.
Al codigo me lo pasaron, no lo he hecho yo, aprovecho la oportunidad que
algunos no tienen de poder suscribirse a una lista y poder saber algo mas.
Mas datos de la aplicación:
control, variable entera, declarada como global e inicializada a cero
band, variable booleana, declarada como global  e inicializada  en True.

Codigo

*procedure* TForm1.Button1Click(Sender: TObject);
begin
   control := control + 1;

   if ((control mod 2 <> 0)and(band = True)) then   //es impar
   begin
     label1.Caption := 'X';
   end;

   if ((control mod 2 = 0)and(band = True)) then
   begin
     band := false;
   end;

   if ((control mod 2 <> 0)and(band = False)) then
   begin
     label1.Caption := 'Y';
   end;

   if ((control mod 2 = 0)and(band = False)) then
   begin
     band := True;
   end;
*end;*

Espero sepan interpretar la inquietud.

Hector.





__________________________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
¡Probalo ya!
http://www.yahoo.com.ar/respuestas