Цитата:
Сообщение от Vladimir_S
Коллеги-паскалисты, выручайте!
Оказывается (а я и не знал), Pascal-ABC не поддерживает модуля DOS и, соответственно, процедуру GetTime. А есть ли там возможность считывания системного времени, и если есть, то как?
|
Процедуры GETTIME нет. Есть модуль Timers.
Можно так сделать:
uses
Utils,Crt;
type
DateTime=record
Day,Month,Year,Hour,Minute,Second,Milliseconds:int eger;
end;
var
time: DateTime; (убрать пробел, с пробелом вылазит смайлик)
begin
HideCursor;
repeat
time:=CurrentDateTime;
write('C начала работы программы прошло: ',Milliseconds div 1000,' сек. Дата: ',time.year,'.',time.month,'.',
time.day,' Время: ',time.hour,':',time.minute,':',time.second,':',ti me.Milliseconds div 100);
GotoXY(1,1)
until
1<0
end.
Честно говорю - программа не моя. Но как видно там есть еще секундомер с начала работы программы.