[PeppeR]

Може кто занимался, мне надо чтобы программа автоматически прописывала цифры их словесным соотношением. Типо в Edit1 сумма, а в Edit2 надо ее словесную интерпритацию. Или хотяб подскажите есть ли dll или ini файл с цифрами от 1 до 1 000 000 000 где каждой цифре прописано их словесное отношение?

[dr. F.I.N.]

Неужели так сложно воспользоваться поисковиком?

[PeppeR]

Помогите исправить код:

Код:

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;

Admin: Пользуемся тегами!

Сдесь если значение 1 000 000 пишет "один миллион тысяч".