Soweit war ich auch schon!
Ich keine auch die Seite auf Wikipedia - aber ich fragte ja nach einer fertigen Funktion dafür
Also eigentlich sollte das jetzt nicht soooo schwer sein. Aber okay, hier ist eine fertige Funktion:
Delphi-Quellcode:
function ValueToGrayCode(Value: Byte):Byte;
begin
Result := Value XOR (Value shr 1);
end;