Naisao sam na ovaj problem kada sam pokusao u svoj program (tel. imenik) staviti proceduru koja bi ispisivala trenutno vrijeme u pozadini koristeci proceduru gettime. Medjutim ova procedura bi trebala da bude aktivna tokom cijelog rada programa bez obzira sta korisnik programa trenutno radi (upisuje imena, pretrazuje imenik, itd.). Na primjer ova procedura radi, ali zaustavlja izvodjenje glavnog programa:
(ovo pisem iz glave, pa mozda ima koja greska)
Code:
procedure vrijeme;
var sat,min,sek,br:word;
begin
window (70,1,80,1);
textbackground (black);
gettime(sat,min,sek,br);
repeat
inc(sek,1);
gotoxy (70,1);
write (sat,':',min);
delay (1000);
if sek=60 then
begin
sek:=0;
inc(min,1);
end;
if min=60 then
begin
min:=0;
inc(sat,1);
end;
until keypressed; {ovdje ce naravno biti neki drugi uslov}
end;
procedure vrijeme;
var sat,min,sek,br:word;
begin
window (70,1,80,1);
textbackground (black);
gettime(sat,min,sek,br);
repeat
inc(sek,1);
gotoxy (70,1);
write (sat,':',min);
delay (1000);
if sek=60 then
begin
sek:=0;
inc(min,1);
end;
if min=60 then
begin
min:=0;
inc(sat,1);
end;
until keypressed; {ovdje ce naravno biti neki drugi uslov}
end;
(ovo pisem iz glave, pa mozda ima koja greska)
