2018-08-02 22:04:49 +03:00
< html > < head >
< object type = "application/x-oleobject" classid = "clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e" >
< param name = "Keyword" value = "Swap" >
< param name = "Keyword" value = "Rec" >
< param name = "Keyword" value = "Dict" >
< param name = "Keyword" value = "KV" >
< param name = "Keyword" value = "New" >
< param name = "Keyword" value = "Dispose" >
< param name = "Keyword" value = "ParamCount" >
< param name = "Keyword" value = "ParamStr" >
< param name = "Keyword" value = "Assert" >
< param name = "Keyword" value = "Halt" >
< param name = "Keyword" value = "Sleep" >
< param name = "Keyword" value = "GetEXEFileName" >
< param name = "Keyword" value = "PointerToString" >
< param name = "Keyword" value = "Exec" >
< param name = "Keyword" value = "Execute" >
< param name = "Keyword" value = "Milliseconds" >
< param name = "Keyword" value = "MillisecondsDelta" >
< / object > < / head >
< meta http-equiv = "Content-Type" content = "text/html; charset=windows-1251" >
< title > < / title > < link rel = "StyleSheet" href = "../../default.css" > < body >
2025-11-07 16:12:31 +03:00
< H1 > Общие подпрограммы< / H1 >
2018-08-02 22:04:49 +03:00
< table border = 0 CELLPADDING = 5 >
< tr >
< td >
< code > < b > procedure< / b > Swap< T> (var a, b: T); < / code > < br >
2025-11-07 16:12:31 +03:00
Меняет местами значения двух переменных< / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code >
< b > function< / b > Milliseconds: integer;< / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает количество миллисекунд с < / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code >
< b > function< / b > MillisecondsDelta: integer;< / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает количество миллисекунд с
или предыдущего вызова функций
2018-08-02 22:04:49 +03:00
< code >
2025-11-07 16:12:31 +03:00
Milliseconds< / code > или
2018-08-02 22:04:49 +03:00
< code >
MillisecondsDelta< / code > .< / td >
< / tr >
< tr >
< td >
< code >
< b > function< / b > Rec< T1,T2,...> (x1: T1; x2: T2, ...): Tuple< T1,T2,...> ; < / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает запись Tuple с
Поля именуются соответственно Item1, Item2 и т.д. и получают значения
x1,x2,... Количество полей - от 2 до 6.< / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code > < strong > function< / strong > Dict< TKey, TVal> (params pairs: < strong >
array of< / strong > KeyValuePair< TKey, TVal> ): Dictionary< TKey, TVal> ;
< / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает словарь пар элементов < / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code > < strong > function< / strong > KV< TKey, TVal> (key: TKey; value: TVal):
KeyValuePair< TKey, TVal> ; < / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает пару элементов для использования в функции Dict < / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr > < td >
< code >
< b > < b > procedure< / b > < / b > Assert(cond: boolean);
< / code > < br >
2025-11-07 16:12:31 +03:00
Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr > < td >
< code >
< b > < b > procedure< / b > < / b > Assert(cond: boolean; mes: string);
< / code > < br >
2025-11-07 16:12:31 +03:00
Выводит в специальном окне диагностическое сообщение mes и стек вызовов подпрограмм если условие не выполняется
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr >
< td >
< code >
< b > procedure< / b > Sleep(ms: integer);
< / code > < br >
2025-11-07 16:12:31 +03:00
Делает паузу на ms миллисекунд
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr > < td >
< code >
< b > < b > procedure< / b > < / b > Halt;
< / code > < br >
2025-11-07 16:12:31 +03:00
Завершает работу программы
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr > < td >
< code >
< b > < b > procedure< / b > < / b > Halt(exitCode: integer);
< / code > < br >
2025-11-07 16:12:31 +03:00
Завершает работу программы, возвращая код ошибки exitCode
2018-08-02 22:04:49 +03:00
< / td > < / tr >
< tr >
< td >
< code >
< b > procedure< / b > Exec(filename: string);
< / code > < br >
2025-11-07 16:12:31 +03:00
Запускает программу или документ с
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr >
< td >
< code >
< b > procedure< / b > Exec(filename: string; args: string);
< / code > < br >
2025-11-07 16:12:31 +03:00
Запускает программу или документ с
командной строки args< / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code >
< b > procedure< / b > Execute(filename: string);
< / code > < br >
2025-11-07 16:12:31 +03:00
Запускает программу или документ с
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr >
< td >
< code >
< b > procedure< / b > Execute(filename: string; args:
string);
< / code > < br >
2025-11-07 16:12:31 +03:00
Запускает программу или документ с
командной строки args< / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code >
< b > function< / b > ParamCount: integer;
< / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает количество параметров командной строки
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr >
< td >
< code >
< b > function< / b > ParamStr(i: integer): string;
< / code > < br >
2025-11-07 16:12:31 +03:00
Возвращает i-тый параметр командной строки
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr >
< td >
< code > < b > procedure < / b > New< T> (< b > var< / b > p: ^T); < / code > < br >
2025-11-07 16:12:31 +03:00
Выделяет динамическую память размера < code > < b > sizeof< / b > (T)< / code > и возвращает в переменной p указатель на нее.
Тип T должен быть размерным< / td >
2018-08-02 22:04:49 +03:00
< / tr >
< tr >
< td >
< code > < b > procedure < / b > Dispose< T> (< b > var< / b > p: ^T);
< / code > < br >
2025-11-07 16:12:31 +03:00
Освобождает динамическую память, на которую указывает
2018-08-02 22:04:49 +03:00
p< / td >
< / tr >
< tr >
< td >
< code >
< b > function< / b > GetEXEFileName: string;
< / code > < br >
2025-11-07 16:12:31 +03:00
Возващает имя запущенного .exe-файла
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< tr >
< td >
< code >
< b > function< / b > PointerToString(p: pointer): string;
< / code > < br >
2025-11-07 16:12:31 +03:00
Преобразует указатель к строковому представлению
2018-08-02 22:04:49 +03:00
< / td >
< / tr >
< / table >
< / body > < / html >
