zkuste to, mělo by to fungovat.
PROCEDURE Delete_Timer IS tm_id TIMER; BEGIN tm_id:=Find_Timer('TIMER1'); IF NOT Id_Null(tm_id) THEN Delete_Timer(tm_id); ELSE Message('Timer '||' has already been cancelled.'); END IF; END;
zkuste to, mělo by to fungovat.
PROCEDURE Delete_Timer IS tm_id TIMER; BEGIN tm_id:=Find_Timer('TIMER1'); IF NOT Id_Null(tm_id) THEN Delete_Timer(tm_id); ELSE Message('Timer '||' has already been cancelled.'); END IF; END;