Zitat von
sakura:
crc:= Trunc(crc /2);
Noch eine kleine Optimierung (statt die FPU zu bemühen, kann man auch Integerarithmetik verwenden):
Delphi-Quellcode:
crc:= crc div 2;
// alternativ kann man auch um ein Bit nach rechts schieben
crc := crc shr 1;
PS: FPU = floating processing
unit = Flieskomma-Prozessor, könnte man auch zu den Akronymen aufnehmen