Общие подпрограммы

Общие подпрограммы

procedure Swap<T>(var a, b: T);

Меняет местами значения двух переменных

function Milliseconds: integer;

Возвращает количество миллисекунд с момента начала работы программы

function MillisecondsDelta: integer;

Возвращает количество миллисекунд с момента начала работы программы или предыдущего вызова функций Milliseconds или MillisecondsDelta.

function Rec<T1,T2,...>(x1: T1; x2: T2, ...): Tuple<T1,T2,...>;

Возвращает запись Tuple с соответствующим количеством полей. Поля именуются соответственно Item1, Item2 и т.д. и получают значения x1,x2,... Количество полей - от 2 до 6.

function Dict<TKey, TVal>(params pairs: array of KeyValuePair<TKey, TVal>): Dictionary<TKey, TVal>;

Возвращает словарь пар элементов

function KV<TKey, TVal>(key: TKey; value: TVal): KeyValuePair<TKey, TVal>;

Возвращает пару элементов для использования в функции Dict

procedure Assert(cond: boolean);

Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется

procedure Assert(cond: boolean; mes: string);

Выводит в специальном окне диагностическое сообщение mes и стек вызовов подпрограмм если условие не выполняется

procedure Sleep(ms: integer);

Делает паузу на ms миллисекунд

procedure Halt;

Завершает работу программы

procedure Halt(exitCode: integer);

Завершает работу программы, возвращая код ошибки exitCode

procedure Exec(filename: string);

Запускает программу или документ с именем filename

procedure Exec(filename: string; args: string);

Запускает программу или документ с именем filename и параметрами командной строки args

procedure Execute(filename: string);

Запускает программу или документ с именем filename

procedure Execute(filename: string; args: string);

Запускает программу или документ с именем filename и параметрами командной строки args

function ParamCount: integer;

Возвращает количество параметров командной строки

function ParamStr(i: integer): string;

Возвращает i-тый параметр командной строки

procedure New<T>(var p: ^T);

Выделяет динамическую память размера sizeof(T) и возвращает в переменной p указатель на нее. Тип T должен быть размерным

procedure Dispose<T>(var p: ^T);

Освобождает динамическую память, на которую указывает p

function GetEXEFileName: string;

Возващает имя запущенного .exe-файла

function PointerToString(p: pointer): string;

Преобразует указатель к строковому представлению