Функция FormatCurr( const Format: string;
Value: Currency ): string;
Модуль: SysUtils
Описание
Функция возвращает строковое представление числа Value. Форматирование происходит с использованием маски, определенной в параметре Format. Дополнительную информацию см. в описании функции FormatFloat.
Пример var
NDS: string; begin try
NDS:=FormatFloat( '#########.00', StrToFloat( Edit1.text)/6);
MessageDlg( 'НДС= '+ NDS, mtInformation, [mbOk], 0); except
MessageDlg( 'Не правильно указана сумма!', mtInformation, [mbOk], 0); end; end;