Nie mam czasu nad tym siedzieć.
więc podaje całkiem nie pełny kod:
timetostr(time); i datetostr(date); nic nie ustawiaj jako date stro lub coś tam po prostu wal tam te linijki i nic w nich nie zmieniaj :)))
to sobie utwórz i nadaj takie nazwy:
g: TLabel;
m: TLabel;
s: TLabel;
procedure wal_imbir(Sender: TObject);
var
godz, min, sek : string;
godz2, min2, sek2 : integer;
begin
godz := timetostr(time);
min := timetostr(time);
sek := timetostr(time);
delete(godz,3,6); *ucinamy reszte od godz
delete(min,1,3); delete(min,3,3); *ucinamy reszte od min
delete(sek,1,6);
g.caption := godz;
m.caption := min;
s.caption := sek;
godz2 := strtoint(godz); // tu aby doliczyć czas ( a jeżeli chcesz jeszcze datę to: Datetostr(date);
min2 := strtoint(min);
sek2 := strtoint(sek);
potem sam se tamto obliczaj bo nie chce mui sie :)
a jeżeli coś nie działa to wal pod <a href="mailto:[email protected]?subject=tentegoodliczczas"> ten adres</a>