Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

SALAST / TIMEUNIT

.PAS
Скачиваний:
13
Добавлен:
16.04.2013
Размер:
737 б
Скачать
Unit TimeUnit;
(**) InterFace (**)
Var Elapsed : Array [0..8] Of Char;
Var SecondsR: Real;
Procedure StartTiming;
Procedure StopTiming;
(**) Implementation (**)
Uses WinProcs,WinDOS,Strings;
Var TStart : Real;

Function ReturnTimeInSeconds : Real;
Var Hour,Minute,Second,Sec100 : Word;
R : Real;
Begin
GetTime(Hour,Minute,Second,Sec100);
R :=0.01*Sec100+Second+Minute*60+Hour*3600;
ReturnTimeInSeconds := R;
End;

Procedure StartTiming;
Begin
TStart := ReturnTimeInSeconds;
End;

Procedure StopTiming;
Var St : String;
R : Real;
Begin
SecondsR := ReturnTimeInSeconds - TStart;
Str(SecondsR:5:2,St);
StrPCopy(Elapsed,St);
End;

End.{ Of Unit }

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

Соседние файлы в папке SALAST