Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2011-05-02 22:54:18 ЛС | профиль | цитата
Взято из Wiki
#pas
Procedure THiAsmClass.doBeep;//Повторное обьявление процедуры 
var 
fr,dr:integer;              
ob:string;                   
begin
   fr := ReadInteger(_Data,Freq); 
   dr := ReadInteger(_Data,Dur);  
   if fr < 40 then fr := 40; 
   if fr = 0 then sleep(dr) else Beep(fr,dr);

{Roma, а Sleep у тебя никогда не сработает потому, что fr=0 никогда не будет потому,} 
{ что  if fr < 40 then fr := 40; }
                          
   ob:= int2str(dr)++int2str(fr); 
 _hi_OnEvent(onBeep,ob);                     
end;
------------ Дoбавленo в 22.54:
nesco, я не протв детального и полного описания - я против выкладывания туфты в Wiki
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0