Это опять я, забыл еще один вопрос: Сумма ПРОПИСЬЮ

← →
NaPoleOn_IV © (2002-08-20 20:26) [0]

Помогите пожалуйста еще разок! Исходя из прошлого вопроса (Напоминаю: как перевести цифру из формата 0000,00 в 0000-00 и записать ее в базу) есть еще один вопрос как теперь эту (можно и цифру формата 0000,00) перевестив сумму прописью и опять же записать ее в определенную ячейку базы.
Только пожалуйста поподробнее, а то у меня есть один пример, а я в нем не могу разобраться.
Заранее благодарен.

← →
fnatali © (2002-08-21 07:08) [1]

UBPFD - http://delphibase.endimus.com/
Строки и символы->Конвертация строк

← →
Skif © (2002-08-22 12:55) [2]

Вообщето надо хелпа читать. Хотя бы по старому Pascal-ю.
Самый простой дедовский способ.
1. Pos(Substr, S: string): byte - осуществляет поиск подстроки Substr в строке S и возвращает номер первого символа в S, который является первым символом в Substr (номер начинается по моему с 0).
2. Delete(var S:string; Index:integer;Count:integer) - удаляет из строки S подстроку, начиная с позиции Index, длиной Count.
3. Insert(Source:string, var S: string; Index: integer) -
вставляет строку Source в строку S, начиная с позиции Index.

А по поводу суммы прописью пиши сам алгоритм. Он нудный. Но что поделать или читай Kulib-у (к стати, классная вещь. Спасибо Озерову, что он ее организовал). Там собрано куча советов. Если надо пиши на почтовик, вышлю.

Если ты не против то можно отправить тебе процедуру на почту...

Это опять я, забыл еще один вопрос: Сумма ПРОПИСЬЮ Найти похожие ветки