|
Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
Delphi XE2 Professional
|
AW: Byte in Gray-Code wandeln
21. Jul 2012, 22:51
Aber okay, hier ist eine fertige Funktion:
Delphi-Quellcode:
function ValueToGrayCode(Value: Byte):Byte;
begin
Result := Value XOR (Value shr 1);
end;
Danke! - irgendwie stand ich auf dem Schlauch!
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
Geändert von Helmi (21. Jul 2012 um 22:58 Uhr)
|