Hi All,
Got a simple question that has stumped me, which tends to happen if I don't do development for a couple of months.

How's the best way of converting an integer number "208" (that is pence) into a string value that is in pounds (2.08)

Thanks as always in advance.

Richard
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121212/7356d77f/attachment.html>

Perhaps not the most efficient solution but that would do:

// p is the integer, f.e. 208
IntToStr(p div 100) + '.' + IntToStr((p mod 100) div 10) + IntToStr(p mod 10)

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121212/a92a4844/attachment.html>

Richard Mace wrote

How's the best way of converting an integer number "208" (that is pence) into a string value that is in pounds (2.08)

Divide by 100. Then use FormatFloat() to output as string.

Regards,
- Graeme -

Format('%d.%.2d', [Price div 100, Price mod 100])

Henry

-ENOTENOUGHINFO (do you assume 2 decimal places always?)

but simplest variable precision would probably be

function PenceToString(ANumber: integer; APrecision : integer = 2):string
begin
  Result := Format('%.'+IntToStr(APrecision)'f',[ANumber div (10**APrecision)]);
end;

:] (assuming the ** operator actually works)

L.

Guy's,
Thanks for the quick info. It's brilliant to get so many good answers do quickly.

Richard

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121212/85098cc7/attachment.html>

(10**APrecision)]);

end;

The ** operator for floating point (and integers) is implemented in unit Math.

Regards,
Sven
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20121212/eda4ec34/attachment.html>

> > How's the best way of converting an integer number "208" (that is > > pence) into a string value that is in pounds (2.08)

Here's another variant that provides an optional $, ? or ?

uses math;
function PenceToString(pennies: integer; precision: integer=2;
                        currency: string=''): string;
begin
  Result:= Format(Format(currency+'%%.%df',[precision]),
                  [pennies/(10**precision)]);
end;

Being purist, maybe
Format('%s%%.%df',[currency, precision],[pennies/(10**precision)]);

No ?

:)
Lukasz

  Format('%s%%.%df',[currency, precision]),[pennies/(10**precision)]);
                                         ^

of course!

Lukasz Sokol wrote

Format('%s%%.%df',[currency, precision]),[pennies/(10**precision)]);

Fat fingers L(

Format(Format('%s%%.%df',[currency, precision]),[pennies/(10**precision)]);

Possibly being careful about the encoding of that currency symbol. I'd also point out that everybody's assuming that OP is asking about post-decimalisation pennies :-)

Logically, to format currency one uses the standard library function formatcurr:

http://www.freepascal.org/docs-html/rtl/sysutils/formatcurr.html

uses sysutils;
var v : currency;
begin
 v:=208 /100;
 writeln(formatcurr('#.##',v));
end.