Как перевести число из двоичной системы счисления в десятичную?

function BinToInt(BinString : string) : longint;
var
i : integer;
Num : longint;
begin
Num := 0;
for i := 1 to length(BinString) do
if BinString[i] = '1' then
Num := (Num shl 1) + 1 else
Num := (Num shl 1);
Result := Num;
end;

Последние комментарии

  • 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마예상 경마일정...
  • 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마정보 경마사이트≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999...
  • 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원≫§≪≫Ksports77. Com≪≫§≪카톡:pro9999 경마배팅 경마공원...

Счетчики