 Lib_timer   
   
   .

   :

JAVA:
public static void schedule(int delay,int interval)
public static void cancel();

PASCAL:
procedure schedule(delay,interval:integer);
 .
:
delay-,    
      .
interval-   .
    .

procedure cancel;
 .

    
 on_timer,  
    
:

********************
program TimerTest;
uses timer;
var
 i:integer;

procedure on_timer;// 
begin
 i:=i+1;
 setcolor(255,255,255);
 fillrect(0,0,100,20);
 setcolor(0,0,0);
 DrawText(''+i,0,0);
 repaint;
end;

begin
 schedule(1000,1000);
 repeat
  delay(100);
 until getkeypressed=ke_key0;
 cancel;
 delay(2000);
end.
********************

    
 Task.class    .

   SE k510i.

 1.0  18:30 07.08.08

(c) ViNT