Разное
Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>
    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Вставить иконки в Grid
   Категория: Компоненты
  Подсветить часть текста в DBGrid
   Категория: Компоненты
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Подсчет времени какого-либо события
   Категория: Математика
  Создание и удаление полей
   Категория: Базы данных
  Шифрование текста по паролю
   Категория: Текст и строки
  Группировка TopAdvGrid
   Категория: Компоненты
  Создать индекс для таблицы ABS (Absolute Database)
   Категория: Базы данных

Delphi - Справочник: FloatToStrF

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 FloatToStrF
1 function FloatToStrF ( Value : Extended; Format : TFloatFormat; Precision, Digits : Integer ) : string;

2 function FloatToStrF ( Value : Extended; Format : TFloatFormat; Precision, Digits : Integer; const FormatSettings : TFormatSettings ) : string;
Функция (Unit SysUtils)
Преобразует значение с плавающей запятой в строку с форматированием
Описание:
Функция FloatToStrF конвертирует значение Value с плавающей запятой в визуализуемую строку, с большим управлением по форматированию через значения Format, Precision, и Digits.

Типом Value может быть любой из с типов с плавающей запятой.

Параметр Format определен TFloatFormat (SysUtils) типом:

ffCurrency eg : $2,345.60
ffExponent eg : 2.3456E+04
ffFixed eg : 2345.60
ffGeneral eg : 2345.6
ffNumber eg : 2,345.6

Другие параметры зависят от этого формата. См. TFloatFormat для полных подробностей.

Версия 2 этой функции - для использования в пределах потоков. Вы должны заполнить запись FormatSettings перед вызовом запроса. Она берёт местная копию глобальной переменной, форматирующей переменные, которые делают подпрограмму потоко-безопасной.
Пример кода: Пример 

Пример кода : Показ чисел как финансовые значения 
var
  amount1 : Extended;
begin
  amount1 := 1234.567;

  // Отображение в формате Currency
  CurrencyString := 'Р€ ';
  ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffCurrency, 8, 4));
  ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffCurrency, 4, 4));
  ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffCurrency, 4, 2));
  ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffCurrency, 2, 4));
end;
//Используя 8,4 = $ 1,234.5670
//Используя 4,4 = $ 1,235.0000
//Используя 4,2 = $ 1,235.00
//Используя 2,4 = 1.2E0003
     
//Пример кода : Показ чисел с научным форматированием 
var
  amount1 : Extended;
begin
  amount1 := 1234.567;

  // Показ в Научном формате
  ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffExponent, 8, 4));
  ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffExponent, 4, 4));
  ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffExponent, 4, 2));
  ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffExponent, 2, 4));
end;
//Используя 8,4 = 1.2345670E+0003
//Используя 4,4 = 1.235E+0003
//Используя 4,2 = 1.235E+03
//Используя 2,4 = 1.2E+0003
     
//Пример кода : Общее отображение чисел 
var
  amount1 : Extended;
begin
  amount1 := 1234.567;

  // Показ в формате Fixed
  ShowMessage('Fixed форматирование :');
  ShowMessage('');
  ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffFixed, 8, 4));
  ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffFixed, 4, 4));
  ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffFixed, 4, 2));
  ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffFixed, 2, 4));

  // Показ в формате General
  ShowMessage('');
  ShowMessage('General форматирование :');
  ShowMessage('');
  ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffGeneral, 8, 4));
  ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffgeneral, 4, 4));
  ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffGeneral, 4, 2));
  ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffGeneral, 2, 4));

  // Показ в формате Number
  ShowMessage('');
  ShowMessage('Number форматирование :');
  ShowMessage('');
  ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffNumber, 8, 4));
  ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffNumber, 4, 4));
  ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffNumber, 4, 2));
  ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffNumber, 2, 4));
end;

Результат:
Fixed форматирование:

Используя 8,4 = 1234.5670
Используя 4,4 = 1235.0000
Используя 4,2 = 1235.00
Используя 2,4 = 1.2E0003

General форматирование :

Используя 8,4 = 1234.567
Используя 4,4 = 1235
Используя 4,2 = 1235
Используя 2,4 = 1.2E0003

Number форматирование :

Используя 8,4 = 1,234.5670
Используя 4,4 = 1,235.0000
Используя 4,2 = 1,235.00
Используя 2,4 = 1.2E0003
Примечание:
Вы можете изменить строку валюты используемую по умолчанию (типа '$' в США) используя переменную CurrencyString.

Вы можете изменить позицию строки валюты используя переменную CurrencyFormat.

Вы можете изменить значение десятичной точки, устанавливая символ DecimalSeparator.

Вы можете изменить символ разделителя тысяч, устанавливая символ ThousandSeparator.

Если полное количество цифр перед десятичной точкой (мантисса) не может быть отображено, то отображение возвращается к экспоненте (научный) формат.

  << Вернуться