Byte in Gray-Code wandeln

[sx2008]

Dieser C-Code lässt sich leicht nach Delphi portieren
http://en.wikipedia.org/wiki/Gray_co...from_Gray_code
Man kann natürlich auch ein gefülltes Array verwenden um die Umrechnung möglichst schnell durchzuführen:
const graycode:array[byte] of byte = (0, 1, 3, 2,...., 128);