[DUG] IntToBin

[Neven MacEwan]

Wallace

Rather than being IntToBin it converts the n digit least significant 
bits to a string representation of 'binary'
so IntToBin(1,4) would return '0001' IntToBin(3,4) returns '0011'  
IntToBin(15,5) = '01111'

Cant really see the use of it and the code isn't that flash

Neven
> Hi Chaps
>  
> I found this on the web and it works but I don't understand how ?
>  
> Can anyone explain it ?
>  
> function IntToBin ( value:Integer; digits: integer ): string;
> begin
>     result := StringOfChar ( '0', digits ) ;
>     while value > 0 do begin
>       if ( value and 1 ) = 1 then
>         result [ digits ] := '1';
>       dec ( digits ) ;
>       value := value shr 1;
>     end;
> end;
>  
> Thanks Wallace
>  
>  
>  
>  
>  
> ------------------------------------------------------------------------
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe