Dezimal -> Binär

[himitsu]

Zitat von Elexarie:

Mein Code wird irgendwie rückwärts ausgegeben, ist das richtig?! :O

Du hast doch diesen Code geschrieben ... Das mußt du doch wissen?

Aber ja, du fügst die kleinesten Bits vorne in den Ergebnis-String ein, also ja, wenn du rückwärts schreibst, dann ist das Ergebnis auch rückwärts.

Und du solltest dir unbedingt angewöhnen deine Result-Variablen zu initialisieren.

Delphi-Quellcode:

function CharToBin(ordinary: integer): string;
var ergebnis : integer;
begin
  Result := '';
  while ordinary > 0 do

Result hat hier nur zufällig gleich beim Start einen Leerstring drin und das muß nicht immer so sein, also solltest du unbedingt dafür sorgen, daß es immer so ist.