🚀 go-pugleaf

comment, this is a great topic, because a lot of folks have this
idea that if the compiler does not supply a built in function for
a particular format, it can't be done. I write the output formatting
functions for IP Pascal completely in standard Pascal. Its slightly
slower than using a "helper" function (like exponent extraction)
but I like the idea that the output functions stand alone.

So if you can write all of the output functions, you can do virtually
any formatting you want. The secret to making it less work is to use
the standard output functions with a little preprocessing as we
have shown here to get exactly want you want with little effort.

Dr John Stockton wrote:
> 
> JRS:  In article <3C1E75EF.B3A48A0C@cisco.com>, seen in news:borland.pub
> lic.turbopascal, Scott Moore <samiam@cisco.com> wrote at Mon, 17 Dec
> 2001 14:47:11 :-
> >function digits(n: integer): integer;
> >
> >var c: integer;
> >
> >begin
> >
> >   c := 1;
> >   if n > 10 then c := c+1;
> >   if n > 100 then c := c+1;
> >   if n > 1000 then c := c+1;
> >
> >   ... [repeated until max power of bits in integer appears ]
> >
> >   digits := c
> >
> >end;
> 
> or
> 
> function digits(const n : integer) : integer ;
> begin
>   {}   if n >= 10000 then digits := 5
>   else if n >= 1000 then digits := 4
>   else if n >= 100 then digits := 3
>   else if n >= 10 then digits := 2
>   else digits := 1 ;
>   end ;
> 
> . . .
> 
> I've given an effective answer for 2-digit numbers.  For a variable
> number of digits K, if speed not crucial, I'd use a while loop ;
> 
>         Str(M, St) ;
>         B := 1 ;
>         while St[B]=#32 do begin St[B] := '0' ; Inc(B) end ; {??}
> 
> --
> � John Stockton, Surrey, UK.  jrs@merlyn.demon.co.uk   Turnpike v4.00   MIME. �
>  <URL: http://www.merlyn.demon.co.uk/> TP/BP/Delphi/&c., FAQqy topics & links;
>  <URL: http://www.merlyn.demon.co.uk/clpb-faq.txt> Pedt Scragg: c.l.p.b. mFAQ;
>  <URL: ftp://garbo.uwasa.fi/pc/link/tsfaqp.zip> Timo Salmi's Turbo Pascal FAQ.

-- 
Insert expressive French girl here.