Jak wyswietlicz czas

0

Jak wyswietlic osobno w Label1.caption godzine , w label2 minuty a w label3 sekundy ??

0

Zamienic TTime na string i rozbić jak sie chce :) :p

0

ale jak to sie rozbija ? [???]

0

procedure TForm1.Timer1Timer(Sender: TObject);
var
h,m,s,ms :word;
begin
decodetime(now,h,m,s,ms);
label1.Caption:=inttostr(h);
label2.Caption:=inttostr(m);
label3.Caption:=inttostr(s);
label4.Caption:=inttostr(ms);
end;

:-D :-D :-D :-D :-D :-D :-D

0

FormatDateTim i już

0

Spróbuj tak:

var
Hour, Min, Sec, MSec: Word;
Present: TDateTime;
begin
begin
Present:= Now;
DecodeTime(Present, Hour, Min, Sec, MSec);
Label1.Caption:=IntToStr(Hour);
Label2.Caption :=IntToStr(Min);
Label3.Caption :=IntToStr(Sec);
Label4.Caption :=IntToStr(MSec);
end;
end;

:-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1