Помогите сделать таймер чтоб он начал считать время и заканчивал считать время по команде и вставлял в стринг[5] к примеру: 01:10 , мне интересно какой командой его останавливать? Как сделать как на примере то есть 00:00 .
Можно ли чтоб процедура работала где то в углу и считала время, тоесть включить и чтоб в программе что то другое делать.. писать что то?
Спасибо за любую помощь.
Code
uses crt;
Procedure Time;
Var m,s,mm,ss:integer;
Begin
m:=00; s:=00;
while (m<=5) do
begin
for s:=1 to 60 do
begin
delay(1000);
clrscr;
gotoxy(10,1); write(m:2,':',s:2);
end;
if (s=60) then
begin inc(m); end;
end;
End;
Begin
clrscr;
Time;
End.
