[dr. F.I.N.]

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

Код:

y:=TimeToStr(now);
hour:=Copy(y,1,pos(':',y)-1); delete(y,1,pos(':',y));
min:=Copy(y,1,pos(':',y)-1); delete(y,1,pos(':',y));

Зачем такие сложности? Есть же уже все готовое:

Код:

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);