Как отобразить миллисекунды в данном коде
В глобальной переменной Var пишу:
T, T1: TDateTime;
В самой процедуре пишу:
Begin
................................
////////Перед началом цикла
T := Time;
................................
///////В конце цикла
ShowMessage( 'Время работы: ' + TimeToStr(Time - T));
И у меня результат выводиться в 0:00:00, то есть часы, минуты, секунды, но нет миллисекунд. Как их добавить?
TStopWatch
, емнип