BinToDec, DecToBin

[HugoTessaro]

Olá, vou postar aqui, 2 funções.

Um para converter numero binário para decimal e outra parar converter decimal para binário.

Sou iniciante em delphi, e tive esta duvida, então talvez alguma outra pessoa tambem possa ter. Por ser iniciante, nunca tinha feito uma função tão legal assim :mellow: e creio que esteja certa.

function BinToDec(valor: String): string;
var
decimal: real;
x,y:integer;
begin
decimal:=0;
y:=0;
for x:=Length(valor) DownTo 1 Do
Begin
decimal:=decimal+(StrToFloat(valor[x]))*Exp(y*Ln(2));
y:=y+1;
End;
result:=FloatToStr(decimal);
End;

function DecToBin(valor: integer): string;
var
binario: string;
begin
while valor >= 1 do
begin
binario:=IntToStr(valor mod 2)+binario;
valor:=(valor div 2);
end;
result:=binario;
end;

[Kali]

Perfeito, o código e pequeno e de fácil intendimento, Muito obrigado !!