BinToInt Binär -> Integer

[Daniel B]

Hallo,

folgende Funktion ist von Christian Seehase!

Delphi-Quellcode:

function BinToInt(const AsValue : string) : integer; 

const 
  // In einer Binärzahl erlaubte Ziffern 
  _aBinDigits = ['0','1']; 

var 
  iPowerOfTwo : integer; // Enthält den Wert der 2er Potenz der gerade bearbeiteten Stelle 
  i           : integer; // Schleifenzähler 

begin 
  Result      := 0; // Ergebnis initialisieren 
  iPowerOfTwo := 1; // mit 2 hoch 0 anfangen 
  // Auf gültige Länge prüfen 
  if (length(AsValue) < 1) or (length(AsValue) > 32) then 
  begin // Sonst Exception erzeugen 
    raise Exception.Create('Die Zahl muss zwischen 1 und 32 Stellen haben.'); 
  end; 
  // mit der niederwertigsten Stelle anfangen und hocharbeiten 
  for i := length(AsValue) downto 1 do 
  begin 
    // Auf gültige Ziffer prüfen 
    if not (AsValue[i] in _aBinDigits) then 
    begin // falls nicht Exception erzeugen 
      raise Exception.Create('Es dürfen nur die Ziffern 0 und 1 vorkommen.'); 
    end; 
    // Wenn die Stelle eine 1 ist 
    if AsValue[i] = '1' then 
    begin // dann das entsprechende Bit setzen 
      Result := Result or iPowerOfTwo; 
    end; 
    // Wert für nächste Stelle setzen 
    iPowerOfTwo := iPowerOfTwo shl 1; 
  end; 
end;

Grüsse, Daniel