pascalabcnet/PABCNetHelp/LangGuide/PABCSystemUnit/Files/System subroutines.html
Mikhalkovich Stanislav 3240593d2e Реализован foreach index
Исправлена ошибка for step
Дополнена справка по for step и foreach index
J,yjdkty ntrcnjdsq htlfrnjh? gjlcdtxbdf.obq ыеуз b штвуч rjyntrcnyj d hfvrf[ jlyjq cnhjrb
2022-02-26 12:33:53 +03:00

113 lines
9.1 KiB
HTML

<HTML><HEAD><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
<param name="Keyword" value="Assert">
<param name="Keyword" value="ChangeFileNameExtension">
<param name="Keyword" value="ChDir">
<param name="Keyword" value="CreateDir">
<param name="Keyword" value="DeleteFile">
<param name="Keyword" value="DiskFree">
<param name="Keyword" value="DiskSize">
<param name="Keyword" value="Dispose">
<param name="Keyword" value="EnumerateAllDirectories">
<param name="Keyword" value="EnumerateAllFiles">
<param name="Keyword" value="EnumerateDirectories">
<param name="Keyword" value="EnumerateFiles">
<param name="Keyword" value="Exec">
<param name="Keyword" value="Execute">
<param name="Keyword" value="FileExists">
<param name="Keyword" value="GetCurrentDir">
<param name="Keyword" value="GetDir">
<param name="Keyword" value="GetEXEFileName">
<param name="Keyword" value="Halt">
<param name="Keyword" value="Milliseconds">
<param name="Keyword" value="MillisecondsDelta">
<param name="Keyword" value="MkDir">
<param name="Keyword" value="New">
<param name="Keyword" value="ParamCount">
<param name="Keyword" value="ParamStr">
<param name="Keyword" value="PascalABCVersion">
<param name="Keyword" value="PointerToString">
<param name="Keyword" value="RemoveDir">
<param name="Keyword" value="RenameFile">
<param name="Keyword" value="RmDir">
<param name="Keyword" value="SetCurrentDir">
<param name="Keyword" value="Sleep"></object>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
</HEAD><body><H1>Cèñòåìíûå ïîäïðîãðàììû</H1>
<table border=0 cellpadding=5><tr><td><code><b>procedure</b> Assert(cond: boolean);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûâîäèò â ñïåöèàëüíîì îêíå ñòåê âûçîâîâ ïîäïðîãðàìì åñëè óñëîâèå íå âûïîëíÿåòñÿ</td></tr>
<tr><td><code><b>procedure</b> Assert(cond: boolean; message: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûâîäèò â ñïåöèàëüíîì îêíå äèàãíîñòè÷åñêîå ñîîáùåíèå è ñòåê âûçîâîâ ïîäïðîãðàìì åñëè óñëîâèå íå âûïîëíÿåòñÿ</td></tr>
<tr><td><code><b>function</b> ChangeFileNameExtension(fileName, newExt: string): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Èçìåíÿåò ðàñøèðåíèå ôàéëà ñ èìåíåì fileName íà newExt</td></tr>
<tr><td><code><b>procedure</b> ChDir(s: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ìåíÿåò òåêóùèé êàòàëîã</td></tr>
<tr><td><code><b>function</b> CreateDir(s: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò êàòàëîã. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî ñîçäàí</td></tr>
<tr><td><code><b>function</b> DeleteFile(fname: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Óäàëÿåò ôàéë. Åñëè ôàéë íå ìîæåò áûòü óäàëåí, òî âîçâðàùàåò False</td></tr>
<tr><td><code><b>function</b> DiskFree(diskname: string): int64;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ñâîáîäíîå ìåñòî â áàéòàõ íà äèñêå ñ èìåíåì diskname</td></tr>
<tr><td><code><b>function</b> DiskFree(disk: integer): int64;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ñâîáîäíîå ìåñòî â áàéòàõ íà äèñêå disk. disk=0 - òåêóùèé äèñê, disk=1 - äèñê A: , disk=2 - äèñê B: è ò.ä.</td></tr>
<tr><td><code><b>function</b> DiskSize(diskname: string): int64;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ðàçìåð â áàéòàõ íà äèñêå ñ èìåíåì diskname</td></tr>
<tr><td><code><b>function</b> DiskSize(disk: integer): int64;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ðàçìåð â áàéòàõ íà äèñêå disk. disk=0 - òåêóùèé äèñê, disk=1 - äèñê A: , disk=2 - äèñê B: è ò.ä.</td></tr>
<tr><td><code><b>procedure</b> Dispose&lt;T&gt;(<b>var</b> p: ^T);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Îñâîáîæäàåò äèíàìè÷åñêóþ ïàìÿòü, íà êîòîðóþ óêàçûâàåò p</td></tr>
<tr><td><code><b>function</b> EnumerateAllDirectories(path: string): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí êàòàëîãîâ ïî çàäàííîìó ïóòè, âêëþ÷àÿ ïîäêàòàëîãè</td></tr>
<tr><td><code><b>function</b> EnumerateAllFiles(path: string; searchPattern: string := '*.*'): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí ôàéëîâ ïî çàäàííîìó ïóòè, ñîîòâåòñòâóþùèõ øàáëîíó ïîèñêà, âêëþ÷àÿ ïîäêàòàëîãè</td></tr>
<tr><td><code><b>function</b> EnumerateDirectories(path: string): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí êàòàëîãîâ ïî çàäàííîìó ïóòè</td></tr>
<tr><td><code><b>function</b> EnumerateFiles(path: string; searchPattern: string := '*.*'): <b>sequence </b> <b>of</b> string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîñëåäîâàòåëüíîñòü èìåí ôàéëîâ ïî çàäàííîìó ïóòè, ñîîòâåòñòâóþùèõ øàáëîíó ïîèñêà</td></tr>
<tr><td><code><b>procedure</b> Exec(fileName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName</td></tr>
<tr><td><code><b>procedure</b> Exec(fileName: string; args: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName è ïàðàìåòðàìè êîìàíäíîé ñòðîêè args</td></tr>
<tr><td><code><b>procedure</b> Execute(fileName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName</td></tr>
<tr><td><code><b>procedure</b> Execute(fileName: string; args: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàïóñêàåò ïðîãðàììó èëè äîêóìåíò ñ èìåíåì fileName è ïàðàìåòðàìè êîìàíäíîé ñòðîêè args</td></tr>
<tr><td><code><b>function</b> FileExists(fileName: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò True, åñëè ôàéë ñ èìåíåì fileName ñóùåñòâóåò</td></tr>
<tr><td><code><b>function</b> GetCurrentDir: string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêóùèé êàòàëîã</td></tr>
<tr><td><code><b>function</b> GetDir: string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òåêóùèé êàòàëîã</td></tr>
<tr><td><code><b>function</b> GetEXEFileName: string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâàùàåò èìÿ çàïóùåííîãî .exe-ôàéëà</td></tr>
<tr><td><code><b>procedure</b> Halt(exitCode: integer);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàâåðøàåò ðàáîòó ïðîãðàììû, âîçâðàùàÿ êîä îøèáêè exitCode</td></tr>
<tr><td><code><b>procedure</b> Halt;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Çàâåðøàåò ðàáîòó ïðîãðàììû</td></tr>
<tr><td><code><b>function</b> Milliseconds: integer;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò êîëè÷åñòâî ìèëëèñåêóíä ñ ìîìåíòà íà÷àëà ðàáîòû ïðîãðàììû</td></tr>
<tr><td><code><b>function</b> MillisecondsDelta: integer;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò êîëè÷åñòâî ìèëëèñåêóíä ñ ìîìåíòà ïîñëåäíåãî âûçîâà Milliseconds èëè MillisecondsDelta èëè íà÷àëà ïðîãðàììû</td></tr>
<tr><td><code><b>procedure</b> MkDir(s: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ñîçäàåò êàòàëîã</td></tr>
<tr><td><code><b>procedure</b> New&lt;T&gt;(<b>var</b> p: ^T);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûäåëÿåò äèíàìè÷åñêóþ ïàìÿòü ðàçìåðà sizeof(T) è âîçâðàùàåò â ïåðåìåííîé p óêàçàòåëü íà íåå. Òèï T äîëæåí áûòü ðàçìåðíûì</td></tr>
<tr><td><code><b>function</b> ParamCount: integer;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò êîëè÷åñòâî ïàðàìåòðîâ êîìàíäíîé ñòðîêè</td></tr>
<tr><td><code><b>function</b> ParamStr(i: integer): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò i-òûé ïàðàìåòð êîìàíäíîé ñòðîêè</td></tr>
<tr><td><code><b>function</b> PascalABCVersion: string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò âåðñèþ PascalABC.NET</td></tr>
<tr><td><code><b>function</b> PointerToString(p: pointer): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ïðåîáðàçóåò óêàçàòåëü ê ñòðîêîâîìó ïðåäñòàâëåíèþ</td></tr>
<tr><td><code><b>function</b> RemoveDir(s: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Óäàëÿåò êàòàëîã. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî óäàëåí</td></tr>
<tr><td><code><b>function</b> RenameFile(fileName, newfileName: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ïåðåèìåíîâûâàåò ôàéë fileName, äàâàÿ åìó íîâîå èìÿ newfileName. Âîçâðàùàåò True, åñëè ôàéë óñïåøíî ïåðåèìåíîâàí</td></tr>
<tr><td><code><b>procedure</b> RmDir(s: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Óäàëÿåò êàòàëîã</td></tr>
<tr><td><code><b>function</b> SetCurrentDir(s: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Óñòàíàâëèâàåò òåêóùèé êàòàëîã. Âîçâðàùàåò True, åñëè êàòàëîã óñïåøíî óäàëåí</td></tr>
<tr><td><code><b>procedure</b> Sleep(ms: integer);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Äåëàåò ïàóçó íà ms ìèëëèñåêóíä</td></tr>
</table>
</body></HTML>