Сумма прописью, есть ли такой компонент?

[Vit@L]

Привет всем. Подскажите пожалуйста, есть ли такой компонент, с помощью которого сумма писалась бы прописью.
В инете находил примеры, но что-то я не могу с ними разобраться, хотелось бы узнать, есть ли компонент?
Заранее спасибо.

[Stilet]

Ну там совсем не сложно.
Я вот предлагал начало:
http://www.programmersforum.ru/showt...dyn#post382094

На DelphiWorld есть пример до 9999999 прописью...
А компонента такого я никогда не встречал. Оно луче самому написать - не так уж и сложно )

[Vit@L]

Stilet, спасибо конечно, но ссылку вы мне дали бессмысленную, во-первых, там про VB речь идет, а тот пост который Вы оставили, мягко говоря - фигня, максимум до 99 и то с ошибками пишет.

[raxp]

о-па... бессмысленную... ну вы и горазды харчами перебирать
там весь алгоритм расписан или вам сэр подать готовый исходник? а в DelphiWorld видимо тоже не заглядывали?

[Serge_Bliznykov]

во-первых, не надо хамить!!! Вам никто ничего не обязан. Вам помогают, а Вы в ответ хамите... (


Ладно. пользуйтесь мой добротой. Вот решение:

function currency2Str (value: double): string;
const hundreds: array [0..9] of string = ('',' сто',' двести',' триста',' четыреста',' пятьсот',' шестьсот',' семьсот',' восемьсот',' девятьсот');

tens: array [0..9] of string = ('','',' двадцать',' тридцать',' сорок',' пятьдесят',' шестьдесят',' семьдесят',' восемьдесят',' девяносто');
ones: array [0..19] of string = ('','','',' три',' четыре',' пять',' шесть',' семь',' восемь',' девять',' десять',' одиннадцать',' двенадцать',
' тринадцать',' четырнадцать',' пятнадцать',' шестнадцать',' семнадцать',' восемнадцать',' девятнадцать');
razryad: array [0..6] of string = ('',' тысяч',' миллион',' миллиард',' триллион',' квадриллион',' квинтиллион');

var s: string; i: integer; val: int64;


function shortNum(s: string; raz: integer): string;
begin
  Result:=hundreds[StrToInt(s[1])]; if StrToInt(s)=0 then Exit;
  if s[2]<>'1' then begin
    Result:=Result+tens[StrToInt(s[2])];
    case StrToInt(s[3]) of
      1: if raz=1 then Result:=Result+' одна' else Result:=Result+' один';
      2: if raz=1 then Result:=Result+' две' else Result:=Result+' два';
    else Result:=Result+ones[StrToInt(s[3])];
  end;
  Result:=Result+razryad[raz];
  case StrToInt(s[3]) of
    0,5,6,7,8,9: if raz>1 then Result:=Result+'ов';
    1: if raz=1 then Result:=Result+'а';
    2,3,4: if raz=1 then Result:=Result+'и' else if raz>1 then Result:=Result+'а';
  end;
  end else begin
    Result:=Result+ones[StrToInt(Copy(s,2,2))];
    Result:=Result+razryad[raz];
    if raz>1 then Result:=Result+'ов';
  end;
end;

begin
  val:=Trunc(value);
  if val=0 then begin Result:='ноль'; Exit; end;
  s:=IntToStr(val); Result:=''; i:=0;
  while Length(s)>0 do begin
    Result:=shortNum(Copy('00'+s,Length('00'+s)-2,3),i)+Result;
    if Length(s)>3 then s:=Copy(s,1,Length(s)-3) else s:='';
    inc(i);
  end;
  Result := Trim(Result)
end;

для проверки киньте Button1, Edit1 и Label1
в на клик кнопки код:

Label1.Caption := currency2Str( StrToFloat(edit1.Text) );

p.s. копирайт на код не мой. откуда-то выдрал. откуда, сорри, уже не помню...

[Stilet]

Vit@L

Древние мудрецы говаривали - "Лишь тот слепой кто видеть не желает. лишь тот увидит кто посмотрит вглубь".
P.S. за точность перевода не ручаюсь.

[Vit@L]

Так, ну во-первых. Я не хамил - это раз. Я вправе высказать свое мнение по поводу ссылки. Но если уж кого и обидел, то извиняюсь, честное слово, не хотел.
raxp, Вы совершенно правы, я именно этого и хочу, чтобы мне дали готовый исходник. Я поэтому и обозвал тему, не алгоритм, а компонент, если Вы еще не заметили. Готовых примеров полно в инете.
В DelphiWorld я не заглядывал.

Serge_Bliznykov, еще раз повторюсь, что я не хамил, а за то, что разрешили попользоваться вашей добротой - спасибо большое. Сейчас попробую.

Serge_Bliznykov, большое спасибо за ваш пример, вот еще несколько вопросов:
1. как сделать чтобы первое числительное писалось с большой буквы
2. Как сделать чтобы писалась так же дробная часть числа дробные числа
3. Необходимо сделать чтобы после целой части писалось слово рубли(рублей/рубля), а после дробной (коп.)

Stilet, какие замечательные люди эти древние мудрецы.

[Stilet]

Как сделать чтобы писалась так же дробная часть числа дробные числа

Это сложнее, обычно число переводят в строку, и применяют два отдельных алгорится к тому что перед и после запятой.

чтобы после целой части писалось слово рубли

Сократи до руб. - это уменьшит тебе проблем.

как сделать чтобы первое числительное писалось с большой буквы

Ну дык AnsiUpperCase для первого символа еще никто не отменял.

[Vit@L]

Сообщение от Stilet

Сократи до руб. - это уменьшит тебе проблем.

Ничего не понял, причем тут сокращение??? мне не столь важно что там написать, мне важно как это сделать.

Всем большое спасибо. Этот пример http://delphiworld.narod.ru/base/sum_written_out9.html
Полностью удовлетворил мои потребности.