Új hozzászólás Aktív témák

• #1921 oleslie aktív tag zka67 #1918

  Új Válasz 2012-12-07 20:37:59 #1921

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz zka67 #1918 üzenetére

  azért tudom még fokozni
  function bin2dec(bin : string) : longint;
  asm
  push eax
  push ebx
  xor ebx,ebx
  @loop0:
  rol ebx,1
  cmp byte ptr [eax],$31
  jnz @zerobit
  or ebx,1
  @zerobit:
  inc(eax)
  cmp byte ptr [eax],0
  jnz @loop0
  mov result,ebx
  pop ebx
  pop eax
  end;

  
  ez is helyes (bár ez nézőpont kérdése) eredményt ad (0x42)

Új hozzászólás Aktív témák