Поручик
29.07.2008, 18:29
кусок кода
=================
function Wait(var tick:integer; Timewait: Integer): Boolean;
// ñêâîçíàÿ ïðîâåðêà áåç îñòàíîâêè ñêðèïòà (c)dmitry501
// modifed by Sh00rGo
var
t: integer;
begin
result:=false;
t:=Round(Time*86400);
if t>(tick+Timewait/1000) then begin
if tick>0 then result:=true;
tick:=t;
end;
end;
begin
s1:=false;
s2:=false;
....
есть условие где после него s1=true
....
if (s1=true) then begin
wait(t1,5000); //ставим задержку на 5 секунд не отрабатывает
buf:=HStr('первый пакеи');
SendToServer;
s1:=false;
s2:=true;
end;
if wait(t1,5000) and (s2=true) then begin ;
buf:=HStr('второй пакет');
SendToServer;
s2:=false;
end;
=====================
все это в главном бегине.
надо отослать первый пакет потом через 5 секунд второй
отсылаются сразу оба
=================
function Wait(var tick:integer; Timewait: Integer): Boolean;
// ñêâîçíàÿ ïðîâåðêà áåç îñòàíîâêè ñêðèïòà (c)dmitry501
// modifed by Sh00rGo
var
t: integer;
begin
result:=false;
t:=Round(Time*86400);
if t>(tick+Timewait/1000) then begin
if tick>0 then result:=true;
tick:=t;
end;
end;
begin
s1:=false;
s2:=false;
....
есть условие где после него s1=true
....
if (s1=true) then begin
wait(t1,5000); //ставим задержку на 5 секунд не отрабатывает
buf:=HStr('первый пакеи');
SendToServer;
s1:=false;
s2:=true;
end;
if wait(t1,5000) and (s2=true) then begin ;
buf:=HStr('второй пакет');
SendToServer;
s2:=false;
end;
=====================
все это в главном бегине.
надо отослать первый пакет потом через 5 секунд второй
отсылаются сразу оба