PostHeaderIconDelphi. Функция FormatCurr( const Format: string; Value: Currency ): string;

Функция 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;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.