pascalabcnet/PABCNetHelp/LangGuide/FuncProgramming/Files/ForEach.html

15 lines
1 KiB
HTML

<html><head><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
<param name="Keyword" value="ForEach">
</object><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><title></title><link rel="StyleSheet" href="../../../default.css"></head>
<body>
<H1>Метод ForEach</H1><h2>Описание методов</h2><p>Методы приведены для последовательности <code><b>sequence of</b> T</code>.</p><table>
<tr><td>
<code><b>procedure</b> ForEach(action: T-&gt;());</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Применяет действие к каждому элементу последовательности.
</td></tr>
</table>
<h2>Пример </h2><blockquote><code><strong>begin</strong><br>&nbsp; <strong>var</strong>
a := Lst(2,3,5);<br>&nbsp; <strong>var</strong> p := 1;<br>&nbsp; a.ForEach(<strong>procedure</strong>(x)
-&gt; p *= x);<br>&nbsp; Println(p);<br><strong>end</strong>.</code></blockquote>
</body>