gracias casimiro ya tengo un timer en mi aplicacion que me muestra la hora y fecha en el sistema pero este timer lo tengo que se este actualizando cada segundo ahora lo que pretendo hacer es que este leyendo una tabla de mi base de datos no resultaria esto muy costoso para la aplicacion? anexo el codigo
Código Delphi
[-]
procedure TFrm_Menu.RelojTimer(Sender: TObject);
var d,m,a:Word;
mes,dia:String;
begin
Decodedate(now,a,m,d);
case m of
1 :mes:='January' ;
2 :mes:='February' ;
3 :mes:='March' ;
4 :mes:='April' ;
5 :mes:='May' ;
6 :mes:='June' ;
7 :mes:='July' ;
8 :mes:='August' ;
9 :mes:='September' ;
10 :mes:='October' ;
11 :mes:='November' ;
12 :mes:='December' ;
end;
case DayOfWeek(now) of
1 :dia:='Sunday' ;
2 :dia:='Monday' ;
3 :dia:='Tuesday' ;
4 :dia:='Wednesday' ;
5 :dia:='Thursday' ;
6 :dia:='Friday' ;
7 :dia:='Saturday' ;
end;
stb_panel.Panels[0].Text:=Application.Hint;
stb_panel.Panels[1].Text:='Date: '+dia+', '+IntToStr(d)+' of '+mes+' of '+IntToStr(a);
stb_panel.Panels[2].Text:='Time: '+TimeToStr(Time);
Qry_ultimacorrida.close;
qry_ultimacorrida.open;
MyDate := EncodeDate(a,m,d);
if Qry_ultimacorrida.fieldbyname('fecha').asdatetime>=muydate then
begin
end;
end;