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

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;

Отправил EdwardTum Вс, 10/15/2017 - 13:24

소셜그래프게임【¬▷Ksports77. Com◁¬】카톡:pro9999 소셜그래프게임
소셜그래프게임【¬▷Ksports77. Com◁¬】카톡:pro9999 소셜그래프게임
소셜그래프게임【¬▷Ksports77. Com◁¬】카톡:pro9999 소셜그래프게임
소셜그래프게임【¬▷Ksports77. Com◁¬】카톡:pro9999 소셜그래프게임
소셜그래프게임【¬▷Ksports77. Com◁¬】카톡:pro9999 소셜그래프게임

Отправил TerenceErari Вс, 10/15/2017 - 12:25

그래프사이트【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프사이트
그래프사이트【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프사이트
그래프사이트【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프사이트
그래프사이트【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프사이트
그래프사이트【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프사이트
그래프사이트【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프사이트

Отправил DarrellRorgo Вс, 10/15/2017 - 06:46

그래프토토【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프토토
그래프토토【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프토토
그래프토토【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프토토
그래프토토【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프토토
그래프토토【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프토토
그래프토토【¬▷Ksports77. Com◁¬】카톡:pro9999 그래프토토

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

  • Мы предлагаем профессиональные услуги по взлому почтовых ящиков. Взлом происходит от одного часа до 10 дней, в зависимости как часто жертва проверяет почту. Пароль в любом случае остается неизменным, пользователь ничего не замечает, продолжая пользоваться почтой как обычно. Главной гарантией нашей...
  • [url=http:///].ankor[/url] .ankor
  • http://forum.duchody-duchodci.cz/posting.php?mode=post&f=6 http://forum.sledtell.com/member.php?action=profile&uid=880 http://www.indofeed.com/Autos/latest-car-news/ http://www.i-mrc.com/members/raymondalula/profile/ http://forum.rittolas.ch/memberlist.php?mode=viewprofile&u=8181 http...

Счетчики