Delphi 8 Integervariablen zu einem Byte

Thema durchsuchen

Ansicht

Themen-Optionen

8 Integervariablen zu einem Byte

Ein Thema von Muellermilchtrinker · begonnen am 28. Jul 2011 · letzter Beitrag vom 28. Jul 2011

Vorheriger Beitrag

Nächster Beitrag

p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge

FreePascal / Lazarus

AW: 8 Integervariablen zu einem Byte

28. Jul 2011, 17:33

Lieber so:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  var1, var2, var3, var4, var5, var6, var7, var8: Integer;

  ResultVar: Byte;

begin

  var1 := 0;

  var2 := 1;

  var3 := 0;

  var4 := 0;

  var5 := 0;

  var6 := 1;

  var7 := 1;

  var8 := 1;

  ResultVar := ((var1 and 1) shl 7) or ((var2 and 1) shl 6) or ((var3 and 1) shl 5) or ((var4 and 1) shl 4)

    or ((var5 and 1) shl 3) or ((var6 and 1) shl 2) or ((var7 and 1) shl 1) or (var8 and 1); // sollte 71 ergeben