Re: [delphi-br] Funçao que tranforme Binar io em INTEIRO

Olhe as funções que eu postei na lista. Elas estão mais simples. Sds. >From: Joao Morais <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: delphi-br@yahoogrupos.com.br >Subject: Re: [delphi-br] Funçao que tranforme Binario em INTEIRO >Date: Tue, 23 Jan 2007 12:47:29 -0200 > >Julio

RE: [delphi-br] Funçao que tranforme Binar io em INTEIRO

function DecToBin(const IntValue: Integer): String; var lValue: Integer; begin Result := ''; lValue := IntValue; while lValue > 2 do begin Result := Chr(48 + (lValue mod 2)) + Result; lValue := lValue div 2; end; Result := Chr(48 + lValue) + Result; end; function BinToDec(con