Hodiny-cas – Delphi – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

16:45, HTML / XHTML Anti-kukíkový zákon

16:26, Assembler šachový program

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

Stavba Laser Arény
Laser Game Brno

Dobrý den,
potřebuji udělat z labelu ukazatel času, který "běží" i se sekundami.
Povedlo se mi to pouze udělat jen, že pokud na label klinu, tak se ukaže cas, ale dale se již neaktualizuje (znovu se nezaktualizujr pokud se neklikne na label).

procedure Tplocha1.Label1Click(Sender: TObject);

begin

Label1.Caption:=DateTimeToStr(now);

end;

Dále by se mi hodilo, když zapisu do editu nejaky cas (co teprve bude nasledovat), aby se práve bezici cas odecital od toho zadaneho v editu. Ale to jen, kdyby opravdu nekdo byl ochotný.

Nevíte prosím někdo jak na to? Předem děkuji.

Nahlásit jako SPAM

IP: 213.192.8.–

Sniper

~ Anonymní uživatel
~ 215 příspěvků

3. 11. 2010 #2

Co na form1 hodit timer, Interval nastavit třeba na 250ms, a do události OnTimer dát to co máš v Label1Click.
Pokud jde o rozdíly v času (odpočítávání), tak časy se dají jednoduše odečítat (TDateTime je jenom číslo typu Double). String (tj. i text v editu) můžete převést třeba pomocí StrToTime, StrToDate nebo StrToDateTime, podle co bude vyhovovat. Ale budou problémy se správným formátováním když to budete růčo zapisovat => chyby.

Nahlásit jako SPAM

IP: 90.179.201.–

kardon

~ Anonymní uživatel
~ 9 příspěvků

3. 11. 2010 #3

To Sniper : díky moc.

Nahlásit jako SPAM

IP: 213.192.8.–

← Zpět na seznam vláken ← Zpět do Fóra