Настройка языков

В качестве примера приведём скрипт русского языка.

begin
//Сумма прописью
dmNativeSets.RPropis.SetChislo(0,'нуль');
dmNativeSets.RPropis.SetChislo(1,'один');

dmNativeSets.RPropis.SetChislo(2,'два');
dmNativeSets.RPropis.SetChislo(3,'три');
dmNativeSets.RPropis.SetChislo(4,'четыре');
dmNativeSets.RPropis.SetChislo(5,'пять');
dmNativeSets.RPropis.SetChislo(6,'шесть');
dmNativeSets.RPropis.SetChislo(7,'семь');
dmNativeSets.RPropis.SetChislo(8,'восемь');
dmNativeSets.RPropis.SetChislo(9,'девять');
dmNativeSets.RPropis.SetChislo(10,'десять');
dmNativeSets.RPropis.SetChislo(11,'одинадцать');
dmNativeSets.RPropis.SetChislo(12,'двенадцать');
dmNativeSets.RPropis.SetChislo(13,'тринадцать');
dmNativeSets.RPropis.SetChislo(14,'четырнадцать');
dmNativeSets.RPropis.SetChislo(15,'пятнадцать');
dmNativeSets.RPropis.SetChislo(16,'шестнадцать');
dmNativeSets.RPropis.SetChislo(17,'семнадцать');
dmNativeSets.RPropis.SetChislo(18,'восемнадцать');
dmNativeSets.RPropis.SetChislo(19,'девятнадцать');
dmNativeSets.RPropis.SetChislo(20,'двадцать');
dmNativeSets.RPropis.SetChislo(21,'тридцать');
dmNativeSets.RPropis.SetChislo(22,'сорок');
dmNativeSets.RPropis.SetChislo(23,'пятьдесят');
dmNativeSets.RPropis.SetChislo(24,'шестьдесят');
dmNativeSets.RPropis.SetChislo(25,'семдесят');
dmNativeSets.RPropis.SetChislo(26,'восемьдесят');
dmNativeSets.RPropis.SetChislo(27,'девяносто');
dmNativeSets.RPropis.SetChislo(28,'сто');
dmNativeSets.RPropis.SetChislo(29,'двести');
dmNativeSets.RPropis.SetChislo(30,'триста');
dmNativeSets.RPropis.SetChislo(31,'четыреста');
dmNativeSets.RPropis.SetChislo(32,'пятьсот');
dmNativeSets.RPropis.SetChislo(33,'шестьсот');
dmNativeSets.RPropis.SetChislo(34,'семьсот');
dmNativeSets.RPropis.SetChislo(35,'восемьсот');
dmNativeSets.RPropis.SetChislo(36,'девятьсот');
dmNativeSets.RPropis.SetChislo(37,'тысяча');
dmNativeSets.RPropis.SetChislo(38,'тысячи');
dmNativeSets.RPropis.SetChislo(39,'тисяч');
dmNativeSets.RPropis.SetChislo(40,'мильйон');
dmNativeSets.RPropis.SetChislo(41,'мильйона');
dmNativeSets.RPropis.SetChislo(42,'мильйонов');
dmNativeSets.RPropis.SetChislo(43,'миллиард');
dmNativeSets.RPropis.SetChislo(44,'миллиарда');
dmNativeSets.RPropis.SetChislo(45,'миллиардов');
dmNativeSets.RPropis.SetChislo(46,'одна');
dmNativeSets.RPropis.SetChislo(47,'две');

// Основная валюта
dmNativeSets.RPropis.SetGrivna(0,'гривен');
dmNativeSets.RPropis.SetGrivna(1,'гривна');
dmNativeSets.RPropis.SetGrivna(2,'гривны');

// Основная валюта (мелочь)
dmNativeSets.RPropis.SetKop(0,'копеек');
dmNativeSets.RPropis.SetKop(1,'копейка');
dmNativeSets.RPropis.SetKop(2,'копейки');

// Месяцы прописью
dmNativeSets.RPropis.SetMonthPropis(1,'января');
dmNativeSets.RPropis.SetMonthPropis(2,'февраля');
dmNativeSets.RPropis.SetMonthPropis(3,'марта');
dmNativeSets.RPropis.SetMonthPropis(4,'апреля');
dmNativeSets.RPropis.SetMonthPropis(5,'мая');
dmNativeSets.RPropis.SetMonthPropis(6,'июня');
dmNativeSets.RPropis.SetMonthPropis(7,'июля');
dmNativeSets.RPropis.SetMonthPropis(8,'августа');
dmNativeSets.RPropis.SetMonthPropis(9,'сентября');
dmNativeSets.RPropis.SetMonthPropis(10,'октября');
dmNativeSets.RPropis.SetMonthPropis(11,'ноября');
dmNativeSets.RPropis.SetMonthPropis(12,'декабря');

// Месяц прописью (в именительном падеже)
dmNativeSets.RPropis.SetMonthPropisIm(1,'Январь');
dmNativeSets.RPropis.SetMonthPropisIm(2,'Февраль');
dmNativeSets.RPropis.SetMonthPropisIm(3,'Март');
dmNativeSets.RPropis.SetMonthPropisIm(4,'Апрель');
dmNativeSets.RPropis.SetMonthPropisIm(5,'Май');
dmNativeSets.RPropis.SetMonthPropisIm(6,'Июнь');
dmNativeSets.RPropis.SetMonthPropisIm(7,'Июль');
dmNativeSets.RPropis.SetMonthPropisIm(8,'Август');
dmNativeSets.RPropis.SetMonthPropisIm(9,'Сентябрь');
dmNativeSets.RPropis.SetMonthPropisIm(10,'Октябрь');
dmNativeSets.RPropis.SetMonthPropisIm(11,'Ноябрь');
dmNativeSets.RPropis.SetMonthPropisIm(12,'Декабрь');

end;

Как видите, это паскале-образный скрипт. В этом скрипте поддерживаются основные команды и конструкции, применяемые в паскале. Более подробно о скриптовом языке можно прочитать в разделе скриптовый язык.

ПроцедураNativeSets.RPropis.SetChislo(0,'нуль'); указывает название числа на данном языке.

ПроцедураdmNativeSets.RPropis.SetGrivna(0,'гривен'); указывает название основной валюты на данном языке.

ПроцедураdmNativeSets.RPropis.SetMonthPropis(4,'апреля'); указывает название соответствующего месяца в родительном падеже.

ПроцедураdmNativeSets.RPropis.SetMonthPropisIm(5,'Май'); указывает название соответствующего месяца в именительном падеже.