Вверх ↑
Ответов: 1321
Рейтинг: 37
#1: 2011-03-16 08:53:13 ЛС | профиль | цитата
Леонид, писал(а):
Roma, ob := fr+'+dr;, а зачем нужно '

[flood]А я решил вирус сделать, когда звучит Pc_BEEP и частота уменьшается меньше 40 Гц
соединяются две строки и комп взрывается
Шутка, странный вопрос я IC не знаю, решил постепенно изучать [/flood]
------------ Дoбавленo в 08.52:

#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;                             

type
 THiAsmClass = class(TDebug)
   private
   public
   dur,freq: THI_Event;                                
   onBeep: THI_Event;                                
   Procedure doBeep(var _Data:TData; Index:Word);
 end;

implementation
Procedure THiAsmClass.doBeep;                     
var 
fr,dr:integer;
ob:string;                           
begin
   fr := ReadInteger(_Data,Freq);
   dr := ReadInteger(_Data,Dur);
   ob:= int2str(fr)++int2str(dr);
   if fr < 40 then fr := 40;
   if fr = 0 then sleep(dr) else Beep(fr,dr);                                  
 _hi_OnEvent(onBeep,ob);                        
end;

end.
Я попробовал исполнить компонент pcBeep на IC, но код выдаёт ошибку строки
if fr = 0 then sleep(dr) else Beep(fr,dr);
Мол неизвестный идентификатор sleep и Beep,почему это происходит?
карма: 0

0