pascalabcnet/PABCNetHelp/LangGuide/PABCSystemUnit/Files/System subroutines.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="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>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(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>