|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
03.10.2020, 21:15
|
|||
|
|||
TimeStamp из TDateTime
Нужен штамп с дискретностью 100uSec.
Сделал так, но выглядит удручающе. Полагаю, что есть более трезвый способ?.. Код:
function DateTimeToTimeStamp(DateTime:TDateTime):cardinal;
begin
result:= round(frac(DateTime)*1000000000);
end; |
Древовидный вид