{***********************************************************************}
{									}
{ __ToDecStr  Return the unsigned word representation of an integer	}
{									}
{ function  __ToDecStr(IntValue : longint; Size : word) : string;	}
{									}
{	      IntValue	The integer value to be converted to an 	}
{			unsigned  decimal string.			}
{	      Size	The number of bytes occupied by IntValue.	}
{									}
{ Description __ToDecStr returns a decimal string whose value is the	}
{	      unsigned equivalent of the integer-type parameter.	}
{	      The string returned is always 3, 5, or 10  characters,	}
{	      corresponding to bytes and shortints, words and integers, }
{	      and longints respectively, padded on the left with zeroes.}
{	      This function is equivalent to __ToRadStr(IntValue,	}
{	      SizeOf(IntValue),10,<3,5,or 10>), but is included for	}
{	      convenience.						}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function  __ToDecStr(IntValue : longint; Size : word) : string;

  var
    Width : word;

  begin {__ToDecStr}

    case Size of
      1 : Width := 3;
      2 : Width := 5;
      4 : Width := 10;
      else
	exit;
    end; {case Size}

    __ToDecStr := __ToRadStr(IntValue,Size,10,Width)

  end;	{__ToDecStr}
