Moduły » SysUtils

CurrencyDecimals

  • 2010-10-31 18:27
  • 0 komentarzy
  • 487 odsłon
  • Oceń ten tekst jako pierwszy
CurrencyDecimals
Moduł: SysUtils

var CurrencyDecimals: Byte;

Zmienna globalna określająca precyzję w wyświetlaniu liczb zmiennoprzecinkowych. Wartość tej zmiennej wykorzystywana jest w trakcie użycia funkcji Format. W przykładowym programie ustalamy precyzję w wyświetlaniu liczb na 10 miejsc po przecinku:

program FooApp;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Value : Currency;
begin
  CurrencyDecimals := 10;
  Value := 2.43;
 
  Writeln(Format('%m', [Value]));
  Readln;
end.


Zobacz też: