Ú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;

• #1915 oleslie aktív tag boros.denes #1913

  Új Válasz 2012-12-06 00:11:13 #1915

  Ú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 boros.denes #1913 üzenetére

  var b:longint
  b:=0;
  for i:=1 to length(bin) do
  if (bin[length(bin)-(i-1)]='1') then
  b:=b or (1 shl (i-1));

• #1914 oleslie aktív tag boros.denes #1913

  Új Válasz 2012-12-05 23:56:12 #1914

  Ú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 boros.denes #1913 üzenetére

  csak tippelek, de itt egy rövid idézet a d7 helpjéből :

  Delphi syntax:
  
  procedure Dec(var X[ ; N: Longint]);
  
  Description
  
  In Delphi code, Dec subtracts one or N from a variable.

  kezdetnek átnevezném a 'dec' nevü változót
  aztán ..
  bin vs bin(i), char típussal mit akarsz szorozni? chr(49) = '1' , valamit megszorzol 49-el?

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