Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: bit <---> word

   
    by TeronG, 31. Mai 2007
  Dank himitsu's Post ist mir ne "bessere" Version von meinem 'WordToBit' eingefallen:
  
  
  type TBitArray = array of boolean;
  
  ...
  
  function WordToBit(Eingang:Word): TBitArray;
  var
  i : integer;
• Forum: Sonstige Fragen zu Delphi

  Re: bit <---> word

   
    by TeronG, 17. Nov 2005
  hier meine ^^ (die versteh ich sogar !!)
  
  function TForm1.BitToWord(bits:TBitArray):Word;
  var
  i : Integer;
  begin
  result := 0;
  for i := low(bits) to high(bits) do if bits then result := result + (1 shl i);
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: bit <---> word

   
    by TeronG, 17. Nov 2005
  ahh ... cool danke :)
  
  Die SHL-functionen von DAX gefallen mir aber die BitsToInt scheint nicht zu klappen :gruebel:
  
  EDIT: ahh .. wenn ich die bit's umdrehe dann klapps (31=0, 30=1,...)
  
  for i := High(Bits) downto 0 do
  
  habs einfach so gemach .. dann klappts wieder ^^
  jetzt nur noch rausfinden warum's überhaupt geht :gruebel:
• Forum: Sonstige Fragen zu Delphi

  Re: bit <---> word

   
    by TeronG, 16. Nov 2005
  @Sniper: :wall: klar so sollts gehen ^^
  
  
  hmm .. ka .. muss ich mich morgen mal reindenken (nehme aber auch fertige functionen :mrgreen: :duck: )
• Forum: Sonstige Fragen zu Delphi

  bit <---> word

   
    by TeronG, 16. Nov 2005
  Hi
  ich wollte/musste mal (16) bits in ein Word umrechnen und umgekehrt .. hab mir auch was zusammengebastelt, daß recht gut funtzt ..
  Jetzt wollt ich eigentlich nur noch wissen, ob es in Delphi evtl. schon was vorgefertigtes/besseres gegeben hätte bzw. giebt?
  
  
  Mein Codeschnipsel ^^
  
  procedure WordToBit(eingang:Word;var bit: array of boolean);
  var
  I : Integer;