Jak wyswietlic osobno w Label1.caption godzine , w label2 minuty a w label3 sekundy ??
0
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;
:-)