Re: [delphi-br] Funçao que tranforme Binario em INTE IRO

2007-01-24 Por tôpico Henrique Netzka \(Vetor Sistemas\)
Mandando outra sugestão (haha, já que virou festa...) function BinToDec(ABin: String): Integer; var iAux: Integer; begin iAux := 0; Result := 0; while (Length(ABin) 0) do begin Inc(Result, StrToInt(AnsiLastChar(ABin)) shl iAux); Inc(iAux); Delete(ABin, Length(ABin), 1);

Re: [delphi-br] Funçao que tranforme Binario em INTE IRO

2007-01-23 Por tôpico Edu Nicácio
O binário que você se refere seria uma String? Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED]