|
#1
|
|||
|
|||
Сумма прописью
По адресу http://www.delphikingdom.com/asp/vie...logid=17скачал файл (sumprops.pas) функции для представления суммы прописью. Подскажите как его теперь использовать в моей программе.
Имеется 2 Edita, в первый будт вводиться число, во втором это число должно быть прописью. СПАСИБО. Да, и как этот sumprops.pas "загнать" в мой проект? |
#2
|
|||
|
|||
Наверное в Uses добавить?
|
#3
|
|||
|
|||
добавлял, что то все равно ругается компилятор
|
#4
|
|||
|
|||
Я сделал так ....
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 мой проект Последний раз редактировалось ApxaHGe1, 17.06.2009 в 20:45. |
#5
|
|||
|
|||
Все получилось, только вместо s:=StrToInt(Edit1.Text) нужно s:=StrToFloat(Edit1.Text), а то с копейками работать не будет
Последний раз редактировалось Михалыч, 17.06.2009 в 22:39. |