🚀 go-pugleaf

Right attack. I use a routine like:

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;

Then, this general purpose building block can be used to format numbers
in various ways.

CBFalconer wrote:
> 
> Jeff Donovan wrote:
> >
> > I am trying to update some code left by a previous programmer, and
> > not knowing Pascal very well I am stuck. Can someone please tell
> > me how to add leading zeros to a when outputting an integer. I am
> > trying to create a hh:mm:ss time string form integer hours, minutes,
> > and seconds variables.
> 
>   PROCEDURE write2digs(VAR f : text; n : integer)
> 
>      BEGIN
>      n := abs(n);  /* just in case */
>      IF (n < 10) THEN write(f, '0', n : 1)
>      ELSE             write(f, n : 2);
>      END;
> 
>   PROCEDURE writedate(VAR f : text; dd, mm, yy, field: integer);
>   (* in ISO form yyyy-mm-dd with leading zeroes *)
> 
>     BEGIN
>     IF field < 10 THEN field := 10;
>     write(f, yy : field - 6, '-');
>     write2digs(f, mm);
>     write(f, '-');
>     write2digs(f, dd);
>     END;
> 
> Creation of a writetime should be obvious.
> 
> --
> Chuck F (cbfalconer@yahoo.com) (cbfalconer@XXXXworldnet.att.net)
>    Available for consulting/temporary embedded and systems.
>    (Remove "XXXX" from reply address. yahoo works unmodified)
>    mailto:uce@ftc.gov  (for spambots to harvest)

-- 
Insert expressive French girl here.