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

• #1916 zka67 őstag boros.denes #1913

  Új Válasz 2012-12-06 01:42:27 #1916

  Ú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

  

  zka67

  őstag

  válasz boros.denes #1913 üzenetére

  function BinToInt(Value: string) : integer;
  var i : integer;
  begin
  Result := 0;
  for i := 1 to Length(Value) do
  case Value[i] of
  '0': Result := Result shl 1;
  '1': Result := (Result shl 1) or 1;
  else
  Break;
  end;
  end;

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