Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: BitmaskToByte -> ByteToBitmask

   
    by heri, 6. Mai 2008
  super :thumb:
  
  :duck:
  (da programmiert man schon seit x-jahren und denkt man kann's -
  aber andere (jüngere) können's einfach noch besser -
  tja, ihr habt's einfach drauf!!!)
  
  Vielen Dank!
• Forum: Object-Pascal / Delphi-Language

  BitmaskToByte -> ByteToBitmask

   
    by heri, 6. Mai 2008
  ich habe in der DP folgenden Code gefunden um eine Bitmask als Byte darzustellen zB. 11000001 -> 1+2+128 -> 131
  
  
  function BitmaskToByte(AValue:TBitmask):byte;
  var i:integer;
  begin
  result := 0; // Rückgabewert auf 0 setzten. WICHTIG. Weglassen dieser Zeile kann zu faulen Ergebnisen führen.
  for i := 0 to 7 do
  if avalue.bits then //Wenn dieser Wert der Bitmaske auf "1" steht,...