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

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;

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