http://sfsys.ru/index.php?action=history&feed=atom&title=File.FindNextFile 2026-04-04T12:56:13Z Revision history for this page on the wiki MediaWiki 1.31.1 http://sfsys.ru/index.php?title=File.FindNextFile&diff=758&oldid=prev 2021-02-07T06:50:44Z

<p>1 revision imported</p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Revision as of 06:50, 7 February 2021</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Admin http://sfsys.ru/index.php?title=File.FindNextFile&diff=757&oldid=prev 2020-02-05T08:24:13Z

<p>Created page with &quot;{{infobox function |name=FindNextFile |object=<a href="/index.php/%D0%A4%D0%B0%D0%B9%D0%BB" title="Файл">Файл</a> |caption=Выборка файлов |type=1 |status=2 |db=1 |visual=0}} {{HeadLinks| * Main_Page|Начальна...&quot;</p> <p><b>New page</b></p><div>{{infobox function<br /> |name=FindNextFile<br /> |object=[[Файл]]<br /> |caption=Выборка файлов<br /> |type=1<br /> |status=2<br /> |db=1<br /> |visual=0}}<br /> {{HeadLinks|<br /> * [[Main_Page|Начальная страница]]<br /> * [[Общее_описание_языка|Общее описание]]<br /> * [[Объекты]]<br /> * [[Файл]]}}<br /> Функция получить следующий файл выборки, открытой ранее с помощью функции [[File.FindOpen|FindOpen]]. Если файлов в выборке больше нет, функция возвращает пустую строку. После выполнения функции, имя файла можно получить снова с помощью атрибута [[File.FileName|FileName]].<br /> <br /> == Синтаксис ==<br /> &lt;code&gt;<br /> {{Grey|File.}}'''FindNextFile'''():''&lt;Имя следующего найденного файла выборки (STRING)&gt;''<br /> &lt;/code&gt;<br /> <br /> ==== Возвращаемое значение ====<br /> Возвращается строка, имя следующего файла в выборке. Если выборка окончена, возвращается пустая строка.<br /> <br /> == Примеры ==<br /> &lt;pre&gt;<br /> Function УдалитьФайлыРекурсивно(Путь)<br /> аФС:=File.Create();<br /> аФС.FindOpen(Путь+&quot;*.*&quot;);<br /> While аФС.FindNextFile()&lt;&gt;&quot;&quot; Do<br /> Файл:=Trim(аФС.FileName);<br /> Имя:=Путь+Файл;<br /> If аФС.IsDirectory(Имя) Then<br /> УдалитьФайлыРекурсивно(Имя+&quot;\&quot;);<br /> Message(&quot;Удаляется папка &quot;+Имя+&quot;!&quot;,&quot;I&quot;);<br /> аФС.RemoveDirectory(Имя);<br /> Else <br /> Message(&quot;Удаляется файл &quot;+Имя+&quot;!&quot;,&quot;I&quot;);<br /> аФС.DeleteFile(Имя);<br /> EndIf;<br /> EndDo;<br /> EndFunction<br /> <br /> Путь:=&quot;Pictures\&quot;;<br /> УдалитьФайлыРекурсивно(Путь);<br /> &lt;/pre&gt;</div>

Admin