Programowanie w języku Delphi

ThousandSeparator

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

var ThousandSeparator: Char;

Zmienna globalna określa znak używany do separowania liczb większyć niż tysiąc. Przykładowo:

var
  Value : Currency;
begin
  ThousandSeparator        := '/';
  Value := 1544.45;
 
  Writeln(Format('%m', [Value]));
  Readln;
end.


Taki kod wyświetli na ekranie konsoli napis: 1/544.45 zł.

Zobacz też: