Функция FloatToStrF – преобразует значение с плавающей запятой в строку с форматированием

Функция FloatToStrF в Delphi преобразует значение с плавающей запятой в строку с форматированием.

Функция FloatToStrF: Показ чисел как финансовые значения

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;

Функция FloatToStrF: Показ чисел с научным форматированием

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;

Функция FloatToStrF: Общее отображение чисел

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;