@jorge Приветствую!
Для получения текущего времени можно использовать функцию Now, возвращает она инфу в формате TDateTime
Т.е. из нее можно вытащить и дату и текущее время, пример:
1 2 3 4 5 6 |
var Time: TTime; begin Time:= Now; //забрали текущее время в нужную нам переменную end; |
@jorge
Пример получения текущего времени в Delphi:
1 2 3 4 5 6 |
var currentTime: TDateTime; begin currentTime := Now; ShowMessage(TimeToStr(currentTime)); end; |
1 2 3 4 5 6 7 8 |
var currentTime: TDateTime; hour, minute, second, millisecond: Word; begin GetTime(hour, minute, second, millisecond); currentTime := EncodeTime(hour, minute, second, millisecond); ShowMessage(TimeToStr(currentTime)); end; |
Обе функции возвращают текущее время в формате TDateTime, который можно преобразовать в нужный формат с помощью функции TimeToStr.