Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: bräuchte mal unterstützung (Zahlensysteme)

   
    by daddy, 8. Mai 2007
  Und hier noch ein kleiner Alternativvorschlag:
  
  function HexToBinaer(C : Char) : String;
  // Zu einem Hex-Zeichen (0..A) wird die passende 4-stellige Binäranzeige
  // (inklusive abschließendem Leerzeichen) zurückgeliefert.
  var c1, c2, c3, c4: Char;
  X : Byte;
  begin
  if C <= '9' then X := ord(C) - 48 else X := ord(C) - 55;
  if X and 8 = 8 then c1 := '1' else c1 := '0';