[Delphi-br] conversao Inteiro p/ Binario

Fiz o codigo utilizando mod, div, e ficou muito grande meu codigo, precisava dar uma refinada ! sera que alguem conhece uma forma mais pratica ? - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [As partes desta

Re: [Delphi-br] conversao Inteiro p/ Binario

function DecToBin(Valor: Integer): string; var S: string; i: integer; Negative: boolean; begin Negative := (valor 0); valor := Abs(valor); for i := 1 to SizeOf(valor) * 8 do begin if valor 0 then S := S + '1' else S := S + '0'; valor := valor shl 1; end;

Re: [Delphi-br] conversao Inteiro p/ Binario

Message - From: Alvaro To: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Sent: Monday, December 04, 2006 10:31 AM Subject: Re: [Delphi-br] conversao Inteiro p/ Binario function DecToBin(Valor: Integer): string; var S: string; i: integer; Negative: boolean; begin