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 Cesar
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
2 matches
Mail list logo
