[Михалыч]

По адресу http://www.delphikingdom.com/asp/vie...logid=17скачал файл (sumprops.pas) функции для представления суммы прописью. Подскажите как его теперь использовать в моей программе.
Имеется 2 Edita, в первый будт вводиться число, во втором это число должно быть прописью. СПАСИБО. Да, и как этот sumprops.pas "загнать" в мой проект?

[ApxaHGe1]

Наверное в Uses добавить?

[Михалыч]

добавлял, что то все равно ругается компилятор

[ApxaHGe1]

Я сделал так ....

Component => Install Component => Unit file name (Выбрал sumprops.pas )

Далее уже использовал так

Код:

var
  Form1: TForm1;
  s:Currency;

implementation

uses sumprops;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=StrToInt(Edit1.Text);
Edit2.Text:=MoneyToString(s,True,False);
end;

end.

Если нужно ... Вот _http://dump.ru/file/2922286 мой проект

[Михалыч]

Все получилось, только вместо s:=StrToInt(Edit1.Text) нужно s:=StrToFloat(Edit1.Text), а то с копейками работать не будет