Код: Выделить всё
case upper(clip(left(Lang_)))
of 'RUS'
AddNumeral(0,'один','два','три','четыре','пять','шесть','семь','восемь','девять')
AddNumeral(1,'одна','две','три','четыре','пять','шесть','семь','восемь','девять')
AddNumeral(2,'одно','два','три','четыре','пять','шесть','семь','восемь','девять')
AddDecs('десять','одиннадцать','двенадцать','тринадцать','четырнадцать','пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать')
AddTens('двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемьдесят','девяносто')
AddHundrs('сто','двести','триста','четыреста','пятьсот','шестьсот','семьсот','восемьсот','девятьсот')
AddThousand(1,'тысяча','тысячи','тысяч')
AddMillion(0,'миллион','миллиона','миллионов')
AddMilliard(0,'миллиард','миллиарда','миллиардов')
AddTrillion(0,'триллион','триллиона','триллионов')
LOC:Minus = 'минус'
LOC:Zero = 'ноль'
of 'UKR'
AddNumeral(0,'один','два','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
AddNumeral(1,'одна','двi','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
AddNumeral(2,'одно','два','три','чотири','п''ять','шiсть','сiм','вiсiм','дев''ять')
AddDecs('десять','одинадцять','дванадцять','тринадцять','чотирнадцять','п''ятнадцять','шістнадцять','сімнадцять','вісімнадцять','дев''ятнадцять')
AddTens('двадцять','тридцять','сорок','п''ятдесят','шiстдесят','сiмдесят','вiсiмдесят','дев''яносто')
AddHundrs('сто','двiстi','триста','чотириста','п''ятсот','шістсот','сімсот','вісімсот','дев''ятсот')
AddThousand(1,'тисяча','тисячi','тисяч')
AddMillion(0,'мільйон','мільйона','мільйонiв')
AddMilliard(0,'мільярд','мільярда','мільярдiв')
AddTrillion(0,'трильйон','трильйона','трильйонiв')
LOC:Minus = 'мiнус'
LOC:Zero = 'нуль'
end
У нас так, т.е. разница только в числах. Падежи валюты задаются в справочнике валют