- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
Procedure Halt;
begin
if atomTest<>0 then GlobalDeleteAtom(atomTest);
TerminateProcess(GetCurrentProcess,0);
end;
function RegisterSceenTimer(proc:tproc):dword;
var i:dword;
begin
result:=0;
for i:=1 to sMaxSceenGradient do
if not SceenGradient[i].isNotEmpty then break ;
if i=sMaxSceenGradient then exit;
SceenTimers[i]:=proc;
result:=i;
end;
guest 15.03.2010 18:33 # +1
2)if i=sMaxSceenGradient then exit;
SceenTimers[i]:=proc;
result:=i;
А это кажить использование переменной цикла вне цикла.
guest 15.03.2010 18:39 # −3.6
guest 15.03.2010 18:39 # −3.6
guest 15.03.2010 18:39 # −4.6
guest 15.03.2010 18:39 # −3.6
guest 22.04.2011 21:20 # −1
istem 22.04.2011 21:27 # 0
bugmenot 22.04.2011 21:32 # 0
> TerminateProcess(GetCurrentProcess,0);
суицид!
Govnocoder#0xFF 22.04.2011 21:45 # 0
istem 22.04.2011 22:17 # 0
guest 23.04.2011 00:57 # 0