sourcode konversi bilangan biner ke desimal dengan delphi

bagi sobat semua ni da sourcode yang q pelajari waktu kul pemprogaman ,mungkin ni g begitu bagus ,atau mungkin masih banyak sekali kekurangannya.....ni da beberapa sourcode yang digunakan untuk mengkonversi bilangan menggunakan delphi....semoga aza ini bisa membantu sobat semua dalam belajar......mungkin ni masih banyak kekurangan jadi silahkan di utak atik lagi ya........


function IntToBin(Value: LongInt;Size: Integer): String;

var

i: Integer;

begin

Result:='';

for i:=Size downto 0 do begin

if Value and (1 shl i)<>0 then begin

Result:=Result+'1';

end else begin

Result:=Result+'0';

end;

end;

end;



function BinToInt(Value: String): LongInt;

var

i,Size: Integer;

begin

Result:=0;

Size:=Length(Value);

for i:=Size downto 0 do begin

if Copy(Value,i,1)='1' then begin

Result:=Result+(1 shl i);

end;

end;

end;