Hi Metatron,
Delphi-Quellcode:
Result := Chr(Ord('0') + Ord(Odd(c))) + Result;
// alternativ: Result := IntToStr(Ord(Odd(c))) + Result;
Odd(c) ist true für ungerade c, die ganze Zeile ist Zeichen-Arithmetik. Wenn es auf ein paar-zig CPU-Zyklen nicht ankommt, dann kannst du auch IntToStr() verwenden. In der Schleife wird immer nur das least significant bit (bit 0) betrachtet und anschließend durch bitweises Schieben eliminiert.
marabu
@barf00s: verstehe - willst also nicht helfen...