Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Dezimal nach Dual umwandeln

   
    by Martin K, 2. Aug 2006
  Zunächst möchte ich mal meine Variante euch nicht vorenthalten, ist eine Vereinfachung des ersten Codes:
  function DecToBin(Value: Cardinal): String;
  begin
  repeat
  Result := IntToStr(Value mod 2) + Result;
  Value := Value div 2;
  until Value = 0;
  end;
  
  Zum zweiten Code: