Dezimal -> Binär

[himitsu]

Zitat von Elexarie:

Wenn ich Result nicht initialisiere funktioniert der folgende Code:

Einfach mal alles durchlesen.
http://www.delphipraxis.net/170301-r...efensuche.html


Tipp: Wenn dein Code nicht funktioniert und du weißt nicht warum,
dann könnte man den Debugger verwenden und sich ansehn, was der Code überhaupt macht und was da nicht so läuft, wie man es gern hätte.


if ergebnis = 1 then und if Ord(ergebnis) then kommt fast auf das Selbe raus.
Hier kommt es sogar genau auf's Selbe raus da ordinary nur positive Werte enthält.