Delphi Problem mit Binärrechner

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit Binärrechner

Ein Thema von Metatron220 · begonnen am 19. Jul 2005 · letzter Beitrag vom 21. Jul 2005

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

#18

Re: Problem mit Binärrechner

20. Jul 2005, 15:52

Hi Metatron,

markieren

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...