blob: 181f6961042ad2e4c82abb5ddea128a8588478b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{ Source provided for Free Pascal Bug Report 4215 }
{ Submitted by "Tony Maro" on 2005-07-24 }
{ e-mail: tony@maro.net }
uses
sysutils;
var
MyCurrency: Currency;
begin
CurrencyFormat := 0; // optional? It's my default anyway.
MyCurrency := 12.53;
writeln(MyCurrency); // this works
writeln(format('%n',[MyCurrency])); // this doesn't
end.
|
