Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
15. Sep 2012
Einfach mal alles durchlesen.
http://www.delphipraxis.net/170301-result-nicht-gesetzt-rekursive-tiefensuche.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...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
15. Sep 2012
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.
function CharToBin(ordinary: integer): string;
var ergebnis : integer;
begin
Result :=...