38 lines
922 B
HTML
38 lines
922 B
HTML
<html>
|
|
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|
<title></title>
|
|
<link rel="StyleSheet" href="../../default.css">
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<H1>Ïðèìåð èñïîëüçîâàíèÿ òàéìåðà</H1>
|
|
Äàííàÿ ïðîãðàììà âûâîäèò 1 êàæäûå 100 ìèëëèñåêóíä<span lang="en-us"> </span>â
|
|
òå÷åíèå 3 ñåêóíä:<blockquote>
|
|
<pre>
|
|
<code><b>uses</b> <span lang="en-us">Timers</span>;<b>
|
|
<span style="font-size: 4pt">
|
|
</span>procedure</b> <span lang="en-us">TimerProc</span>;
|
|
<b>begin</b>
|
|
<span lang="en-us">write(1)</span>;
|
|
<b>end</b>;
|
|
<b><span style="font-size: 4pt">
|
|
|
|
</span>begin
|
|
</b> <span lang="en-us"><b>var</b> t := <b>new</b> Timer(100,TimerProc);
|
|
t.Start;
|
|
Sleep(3000);
|
|
</span><b>end</b>.</code>
|
|
</pre>
|
|
</blockquote>
|
|
|
|
<p>Âûçîâ <code>Sleep</code><span lang="en-us"> </span>çäåñü îáÿçàòåëåí, èíà÷å
|
|
ïðîãðàììà ïîñëå ñîçäàíèÿ òàéìåðà ñðàçó çàêîí÷èòñÿ, è îáðàáîò÷èê òàéìåðà íè ðàçó
|
|
íå ñðàáîòàåò.</p>
|
|
|
|
</body>
|
|
|
|
</html>
|