Сумма прописью

[m0p3e]

А кто мешает оформить в функцию?
function SumStr (sum:double) : string;
{
SumStr := DoubleToStr(Sum,'4');
SumStr := Upcase(SubStr(SumStr,1,1))+SubStr(SumStr,2,length(SumStr)-1);
}

[katerpillar]

Да никто не мешает... Просто была надежда, что я не знаю функции какой-то.... стандартной...

Ну вот, например, для 9876,12 можно же задать типа &'&&&.&& - 9'876.12... Вот я и думал, что для @@@@@ тоже есть какая-то хитрость - ведь это было бы логично....

Написал, к примеру, @!@@@ и выведет с заглавной буквы...

Ну ладно. Всем спасибо за помощь.