delphi Код:
const
TimerInterval=100;
var
i:byte;
Timer1:TTimer;
procedure Init;
begin
I:=0;
Timer1:= TTimer.Create(nil) ;
Timer1.Interval := TimerInterval ;
Timer1.Enabled := False ;
Timer1.Ontimer := @OnTimer ;
end;
procedure Free;
begin
Timer1.free;
end;
Procedure OnTimer;
begin
Timer1.enabled:=false;
I:=i+1;
case i of
1: begin Пакет1 end;
2: begin Пакет2 end;
3: begin Пакет2 end;
4: begin Пакет2 end;
5: begin Пакет2 end;
6: begin Пакет2 end;
7: begin Пакет2 end;
8: begin Пакет2 end;
9: begin Пакет2 end;
end;
if i<10 then
timer1.enabled:=True;
else
timer1.free;
end;
begin
end.
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
Последний раз редактировалось NLObP, 30.06.2011 в 01:44.
Причина: добавил теги
|