Concat3Strings, GetNextSt, isStNumbers, StrConvert, SumToString, Translit

 

function Concat3Strings(s1,s2,s3:string):string;

"Склеить" 3 строки в одну, Содержимое разделяется пробелами. Если какая-то из подстрок пустая — то пробел не ставится.

 

function isStNumbers(st:string):boolean;

Если строка, переданная в функцию, состоит исключительно из цифр — функция вернет True. Иначе - False;

 

function StrConvert(st :string; dc :integer) :string;

Перевести строку "st" из одной кодировки в другую. Функция возвращает строку-результат перекодировки. Параметр "dc" может принимать такие значения:

1 - из win1251 в 866;

2 - из win1251 в 866U;

3 - из 866 в win1251;

4 - из 866U в win1251.

 

function SumToString(value:string; valute:byte): string;

Перевести сумму в строку прописью. Если  (USD, RUB, UAH, регистр не важен) valute — 0, то сумма прописывается в рублях, если 1 — в долларах. Максимальная сумма — 999 999 999.

 

function Translit(const InString:string): string;

Функция для транслитерации текстовых строк. Например, Translit('Привет, мир!') вернёт строку 'Privet mir'. Поддерживаются русский и украинский языки.