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