Леонид, писал(а):
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.
if fr = 0 then sleep(dr) else Beep(fr,dr);
Мол неизвестный идентификатор sleep и Beep,почему это происходит?
Поиск
Друзья
Администрация