[Lazarus] Converting pence into pounds and then to string

Sven Barth pascaldragon at googlemail.com
Wed Dec 12 14:05:52 CET 2012


Am 12.12.2012 13:17 schrieb "Lukasz Sokol" <el.es.cr at gmail.com>:
>
> On 12/12/2012 11:23, Richard Mace wrote:
> > 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
> >
> >
> -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;

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-ide.org/pipermail/lazarus/attachments/20121212/eda4ec34/attachment-0003.html>


More information about the Lazarus mailing list