This is how it works with the %m format
procedure TForm1.FormCreate(Sender: TObject);
begin
DefaultFormatSettings.Currencystring := '€';
Label1.Caption := Format('%m', [11111111.0]);
// "Format" instead of "FormatCurr", parameter in square brackets,
value must be a float
end;
Am 15.08.2015 um 11:13 schrieb John Landmesser:
CurrencyString shows €
FormatCurr('%M',111111111) -> %M
Expected a currency string as '111.111.111,00 €'
System: Linux, Debian Sid
sorry for that really idiotic question :-))
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus