|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Словесное соответствие цифрам
Може кто занимался, мне надо чтобы программа автоматически прописывала цифры их словесным соотношением. Типо в Edit1 сумма, а в Edit2 надо ее словесную интерпритацию. Или хотяб подскажите есть ли dll или ini файл с цифрами от 1 до 1 000 000 000 где каждой цифре прописано их словесное отношение?
|
#2
|
||||
|
||||
Неужели так сложно воспользоваться поисковиком?
|
#3
|
||||
|
||||
Помогите исправить код:
Код:
const a:array[0..8,0..9] of string=( ('','один ','два ','три ','четыре ','пять ','шесть ','семь ','восемь ','девять '), ('','','двадцать ','тридцать ','сорок ','пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '), ('','сто ','двести ','триста ','четыреста ','пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот '), ('тысяч ','одна тысяча ','две тысячи ','три тысячи ','четыре тысячи ','пять тысяч ','шесть тысяч ','семь тысяч ','восемь тысяч ','девять тысяч '), ('','','двадцать ','тридцать ','сорок ','пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '), ('','сто ','двести ','триста ','четыреста ','пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот '), ('миллионов ','один миллион ','два миллиона ','три миллиона ','четыре миллиона ','пять миллионов ','шесть миллионов ','семь миллионов ','восемь миллионов ','девять миллионов '), ('','','двадцать ','тридцать ','сорок ','пятьдесят ','шестьдесят ','семьдесят ','восемьдесят ','девяносто '), ('','сто ','двести ','триста ','четыреста ','пятьсот ','шестьсот ','семьсот ','восемьсот ','девятьсот ')); b:array[0..9] of string= ('десять ','одинадцать ','двенадцать ','тринадцать ','четырнадцать ','пятнадцать ','шестнадцать ','семнадцать ','восемнадцать ','девятнадцать '); function SumToStrin(Value : String) : string; var s,t:string; p,pp,i,k,m:integer; begin s:=value; if s='0' then t:='Ноль ' else begin p:=length(s); pp:=p; if p>1 then if (s[p-1]='1') and (s[p]>='0') then begin t:=b[strtoint(s[p])];pp:=pp-2;end; i:=pp; m:=p-3; while i>0 do begin if (i=p-3) and (p>4) then if (s[p-4]='1') then begin t:=b[strtoint(s[p-3])]+'тысяч '+t;i:=i-2;end; if (i=p-6) and (p>7) then if s[p-7]='1' then begin t:=b[strtoint(s[p-6])]+'миллионов '+t; i:=i-2;end; if i>0 then begin k:=strtoint(s[i]); t:=a[p-i,k]+t; i:=i-1;end; end;end; result:=t; end; Сдесь если значение 1 000 000 пишет "один миллион тысяч". Последний раз редактировалось Admin, 16.05.2010 в 18:32. |