|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: erklärt mir bitte ein programm
18. Nov 2007, 20:08
Wenn der Autor das etwas anders formuliert hätte, wäre es einfacher zu verstehen gewesen: p:=p*2+ord(s[i])-ord('0');
geändert in p := p shl 1 or (ord(s[i])-ord('0'));
So wird es IMHO deutlicher 
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|