mit Bytes rechenen

[fredel007]

hi,

ich suche nach einer möglichkeit Bytes zu halbieren

Delphi-Quellcode:

procedure xxxxx
var
  x: Byte;
begin
  x:=16;
  x:=x/2;
end;

aber x:=x/2; geht ja nicht!
gibt es da einen befehl wie z.B IntToStr ?(????ByteToFloat?????)


gruß freddy

[Dannyboy]

Servus, um Halbbytes zu bekommen shiftest Du am besten die Bits mit shl und shr
(shift-left und shift-right).
Beispiel für kleines Halbbyte:
Z.B.:

Delphi-Quellcode:

var a,b : byte;
b:= 255;
a:= b shl 4;

Check this out.
DANNYBOY

[StefanDP]

wie wärs mit

Delphi-Quellcode:

x := x div 2;

stefan

[Dannyboy]

Es gibt auch noch diese Möglichkeit:

Delphi-Quellcode:

var a,b : byte;
//...
Großes Halbbyte:
a:= (b AND 240); // 240 = 1111 0000
Kleines Halbbyte:
a:= (b AND 15);  // 15  = 0000 1111

Hier kannst Du Dir beide Halbbytes raussuchen und
nicht nur den unteren Teil.
DANNYBOY

Nachtrag:
Möchtest Du die Bytes einfach durch zwei teilen (siehe StefanDP)
oder möchtest Du die Bytes in zwei Halbbytes halbieren?

[Boombuler]

wenn du dabei abrunden willst kannst du auch einfach:

Delphi-Quellcode:

x := x shr 1;

nehmen

damit wird:

00011011 zu 00001101


MfG
Boombuler

[Muetze1]

Moin!

Zitat:

Zitat von Boombuler

wenn du dabei abrunden willst kannst du auch einfach:

Delphi-Quellcode:

x := x shr 1;

nehmen

damit wird:

00011011 zu 00001101


MfG
Boombuler

Was dann das gleiche wäre wie

Delphi-Quellcode:

 x := x div 2;

nur schneller, da das bitweise shiften schneller ist...

MfG
Muetze1