Umrechnen Bin-Dez / Dez-Bin ohne shr oder shl

[DeddyH]

Obwohl ich es eigentlich nicht tun wollte, hier mal die Umsetzung (normalerweise würde ich es kürzer machen, aber dann verstehst Du es bestimmt nicht):

Delphi-Quellcode:

function ZahlAsBinaryString(Zahl: Cardinal): String;
//Variable Vergleichszahl deklarieren
var Vergleichszahl: Cardinal;
begin
  //Vergleichszahl und Rückgabewert vorbelegen
  Vergleichszahl := 1;
  Result := '';
  //Schleife (Ende, wenn das Ergebnis 32 Stellen hat)
  while Length(Result) < SizeOf(Cardinal) * 8 do
    begin
      //binärer Vergleich
      if (Zahl and Vergleichszahl) = Vergleichszahl then
        Result := '1' + Result
      else
        Result := '0' + Result;
      //Vergleichszahl verdoppeln
      Vergleichszahl := Vergleichszahl * 2;
    end;
end;