На главную

Определение текущего времени

Определение текущего времени

ОГЛАВЛЕНИЕ    HOME  MAIL



Для определения текущего времени существует функция Time. Но время она возвращает результат в TDateTime. Для выделения из TDateTime часов, минут, секунд и миллисекунд используют DecodeTime.
procedure TForm1.Button1Click(Sender: TObject);
var
  Hour, Min, Sec, MSec: Word;
begin
  repeat
    DecodeTime(Time, Hour, Min, Sec, MSec);
    Label1.Caption := IntToStr(Hour);
    Label2.Caption := IntToStr(Min);
    Label3.Caption := IntToStr(Sec);
    Label4.Caption := IntToStr(MSec);
    Application.ProcessMessages;
  until Form1.Tag = 1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Tag := 1;
end;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz