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

Rozšířené hledání ›

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

17:21, Python Matlablib a colorbar

09:02, .NET Testing Lab for Honey and Honey Products - FARE LABS Pvt.…

08:39, Python Výběr pixelu klikem v zoomované oblasti [prohlížeč obrázku]

14:30, Funkcionální progr… Dummy smart a Kunstinteligenz

14:46, Python Používáte SQLAlchemy nebo pandas? pymysql

11:30, Funkcionální progr… Promotic

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