Cambiar Caption

[[egostar]]

Empezado por cmm07

entonces si hay que pasarlo a numerico quedaría así

(creando codigo...)

Salud OS

[[egostar]]

Otra solución sin pasarlo a numérico (una idea muy interesante de cmm07 )

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Time > StrtoTime('12:00') then
     Button1.Caption:= 'Registrar la Entrada de la Tarde'
  else Button1.Caption:= 'Registrar la Entrada de la Mañana';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if Time > StrtoTime('12:00') then
     Button1.Caption:= 'Registrar la Entrada de la Tarde'
  else Button1.Caption:= 'Registrar la Entrada de la Mañana';
end;

Salud OS

[cmm07]

jajaja para pasarlo a numerico no habia que hacer tanto atao aqui les dejo algo mas clarito:

Código Delphi [-]
if StrToInt(Copy(TimeToStr(Time), 0, 2)+Copy(TimeToStr(Time), 4, 2)) > 1200 then
Button1.Caption:= 'Registrar la Entrada de la Tarde'
else
Button1.Caption:= 'Registrar la Entrada de la Mañana';

SALU2

Gracias a [egostar] pude darme cuenta gracias.

[sinalocarlos]

Código Delphi [-]
uses DateUtils

...

if IsPM (now) then
Button1.Caption:= 'Registrar la Entrada de la Tarde'
else
Button1.Caption:= 'Registrar la Entrada de la Mañana';

mejor?

[[Delphius]]

La respuesta de sinalocarlos, me ha llamado la atención, no sólo por su simpleza sino también por el hecho de que desconocía dicha función.

Simplemente elegante y correcta.

Saludos,

[sinalocarlos]

me he sonrojado

alguien me ha dicho que escribí al menos 4 lineas de forma limpia, se agradece

Si algo he aprendido en el Club (a punta de mandarme a la guía de estilo) es que no hay que reinventar la rueda, darse una vuelta por la ayuda de Delphi ayuda bastante de ves en cuando


Saludos desde Tijuana, México

[ixMike]

Empezado por sinalocarlos

me he sonrojado

alguien me ha dicho que escribí al menos 4 lineas de forma limpia, se agradece

Si algo he aprendido en el Club (a punta de mandarme a la guía de estilo) es que no hay que reinventar la rueda, darse una vuelta por la ayuda de Delphi ayuda bastante de ves en cuando


Saludos desde Tijuana, México

¿Te sonrojaste? Nos pasa a todos cuando nos dicen esas cosas por aquí .

¿Guía de estilo? Y Ezo Que E?

¿Reinventar la rueda? ¡A mí me encanta! Sobre todo cuando me pongo necio y digo «no pienso usar esa unit »... hasta me hice mi propio IntToStr


Y, dentro del tema del hilo... ¡estos novatos y sus dudas...!


Salu2.