Hallo Poldy, willkommen in der
DP 
. Da das meiste bestimmt bereist erklärt wurde, zeige ich Dir nur ein Beispiel mit einer Zahl (hier 125), einer Vergleichszahl und einem Ergebnisstring:
Delphi-Quellcode:
StringVariable ist noch leer, Vergleichszahl ist 1
01111101 //zu untersuchende Zahl
00000001 //Vergleichszahl
--------
1
Stringvariable := '1' + Stringvariable;// -> Stringvariable = '1'
Vergleichszahl := Vergleichszahl * 2;
01111101 //zu untersuchende Zahl
00000010 //Vergleichszahl
--------
0
Stringvariable := '0' + Stringvariable;// -> Stringvariable = '01'
Vergleichszahl := Vergleichszahl * 2;
01111101 //zu untersuchende Zahl
00000100 //Vergleichszahl
--------
1
Stringvariable := '1' + Stringvariable;// -> Stringvariable = '101'
Vergleichszahl := Vergleichszahl * 2;
usw.