[Sanek_ntsk]

Как на форме отабразить время?

[Decoding]

Код:

1 2 3 4

<b>procedure</b> TForm1.Timer1Timer(Sender: TObject); <b>begin</b>    Caption := TimeToStr( Now ); <b>end</b>;

или так

Код:

1 2 3 4

<b>procedure</b> TForm1.Timer1Timer(Sender: TObject); <b>begin</b>    Caption := FormatDateTime( 'am/pm hh:mm:ss', Now ); <b>end</b>;

[Andrevv]

Сообщение от Sanek_ntsk

Как на форме отабразить время?

Воспользуйся процедурой

Код:

1 2 3 4 5

var Hour, Min, Sec, MSec: word; ... DecodeTime(Time, Hour, Min, Sec, MSec); ...

Hour, Min, Sec - соответственно час, минута, секунда на момент вызова процедуры, считываются из системных часов. Если нужно непрерывно выводить время используй TTimer.