Bitweise rotieren

eruhenon · Beiträge: 53

Moin!
Ich versuche derzeit ein "circular shift" umzusetzen. Jedoch habe ich nur shl und shr gefunden aber bei diesen wird ja immer eine 0 nachgeschoben. Eine Idee von mir war nun die Zahl in binär umzurechnen, einen String daraus zu machen und dann die ersten Stellen abzuschneiden und hinten dranzufügen, aber das ist doch wirklich umständlich. Gibt es von Delphi keinen einfacheren Weg das umzusetzen? Ich suche also sowas wie ROR oder ROL aus Asm.

Danke schonmla für die Hilfe!

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Do 15.05.2008 um 14:30

jaenicke · Verfasst: Do 15.05.08 13:39

Du kannst Assembler ja auch mit Hilfe des Schlüsselworts asm direkt verwenden ;-)

.

eruhenon · Beiträge: 53

edit:// ich habs nu so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function ror(a,b:byte):byte;
asm
  ror a, b
  return a;
end;

danke!

uall@ogc · Verfasst: Do 15.05.08 16:17

wenn du ein byte hast und es in delphi machen willst:

markieren

Delphi-Quelltext

1:	b := (b shr 1) or (b shl 7)

wenn ich mich net vertuhe

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme