pascalabcnet/PABCNetHelp/LangGuide/PABCSystemUnit/Files/System subroutines.html

131 lines
13 KiB
HTML
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

<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="NumberFormat">
<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="RenameDirectory">
<param name="Keyword" value="RenameFile">
<param name="Keyword" value="RmDir">
<param name="Keyword" value="SetCurrentDir">
<param name="Keyword" value="SetDecimalSeparator">
<param name="Keyword" value="SetNumberFormat">
<param name="Keyword" value="Sleep">
<param name="Keyword" value="TypeName">
<param name="Keyword" value="TypeToTypeName"></object>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
</HEAD><body><H1>стемные подпрограммы</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(dirName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Меняет текущий каталог</td></tr>
<tr><td><code><b>function</b> CreateDir(dirName: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Создает каталог. Возвращает True, если каталог успешно создан</td></tr>
<tr><td><code><b>function</b> DeleteFile(fileName: 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(dirName: 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> NumberFormat(DecimalSeparator: string := '.'; GroupSeparator: string := ',');</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Создаёт настройки форматирования числовых значений</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(dirName: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Удаляет каталог. Возвращает True, если каталог успешно удален</td></tr>
<tr><td><code><b>function</b> RenameDirectory(dirName, newDirName: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Переименовывает каталог dirName, давая ему новое имя newDirName. Возвращает 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(dirName: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Удаляет каталог</td></tr>
<tr><td><code><b>function</b> SetCurrentDir(dirName: string): boolean;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Устанавливает текущий каталог. Возвращает True, если каталог успешно установлен</td></tr>
<tr><td><code><b>procedure</b> SetDecimalSeparator(sep: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Устанавливает разделитель между целой и дробной частью в вещественных значениях</td></tr>
<tr><td><code><b>procedure</b> SetNumberFormat(DecimalSeparator: string := '.'; GroupSeparator: string := ',');</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Устанавливает параметры числового формата</td></tr>
<tr><td><code><b>procedure</b> Sleep(ms: integer);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Делает паузу на ms миллисекунд</td></tr>
<tr><td><code><b>function</b> TypeName(obj: object): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Возвращает строку с именем типа объекта</td></tr>
<tr><td><code><b>function</b> TypeToTypeName(t: System.Type): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Возвращает строку с именем данного типа</td></tr>
</table>
</body></HTML>