Библиотека функций:
//Находим строку, которая лучше всего соответствует целевой строке
функция MaxMatchStr(DestStr:String;Strs:массив строк):String;
//Удалить пробелы в тексте
функция FmtText(Text:String):String;
//Форматируем числа с плавающей запятой и исправляем ошибки с плавающей запятой.
функция FmtFloat(Значение:Расширенное;Цифры:Целое=4):Double;
//Заменяем подстроку в Str
процедура replaceStr(var Str:String;const SourceStr,DestStr:String);
//Содержит ли выражение Expression элемент Item
функция IncludeItem(Expression,Item:String):Boolean;
//Показать окно сообщения
функция MsgBox(const Handle:THandle;Text,Caption:String;
Флаг:Целое):Целое;
//показать сообщение
процедура ShowMsg(Sender:TCustomForm;Msg:String);
//Отображать ошибки и завершать текущее событие
процедура ShowError(Sender:TCustomForm;Error:String);
//отображение ошибки
процедура ErrorMsg(Sender:TCustomForm;Error:String);
//Показать предупреждение
процедура ShowWarning(Sender:TCustomForm;Warning:String);
//Читаем имя и значение данных реестра
процедура GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);
//Записываем данные в реестр
процедура WriteValues(Registry:TRegistry;ValueNames:массив строк;Значения:массив вариантов);
//Читаем строковое значение в реестре
функция ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String= ):String;
//Записываем строковое значение в реестр
процедура WriteRegistString(ARootKey:HKEY;Key,Name,Value:String);
//Читаем целочисленное значение в реестре
функция ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;
//Записываем целочисленное значение в реестр
процедура WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer);
//Читаем логическое значение в реестре
функция ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;
//Записываем логическое значение в реестр
процедура WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean);
//Представляем дату в китайском формате: XXXX год XX месяц XX день
функция DateToChinese(ADate:TDate):String;
//Получаем имя локальной машины
функция GetComputerName:String;
//Получаем каталог временных файлов
функция GetWinTempDir:String;
//Получаем системный каталог
функция GetSystemDir:String;
//Генерируем имя временного файла
функция GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;
