Umrechnen von Zahlensystemen

[DeddyH]

Ich würde bei falschen Zeichen aber nicht -1 zurückgeben, sondern eine Exception werfen.

[edit] Also so (ist ja jetzt auch egal):

Delphi-Quellcode:

function BinToInt(const BinStr: string): Cardinal;
const
  ERR_TOO_LONG = 'Eingabe "%s" ist zu lang für eine Konvertierung';
  ERR_INVALID_CHAR = 'Ungültiges Zeichen: "%s"';
var
  i, BinWert: Cardinal;
begin
  if Length(BinStr) > SizeOf(Result) * 8 then
    raise Exception.CreateFmt(ERR_TOO_LONG, [BinStr]);
  Result := 0;
  BinWert := 1;
  for i := Length(BinStr) downto 1 do
    begin
      case BinStr[i] of
        '0': ;
        '1': Result := Result or BinWert;
        else
          raise Exception.CreateFmt(ERR_INVALID_CHAR, [BinStr[i]]);
      end;
      BinWert := BinWert shl 1;
    end;
end;

[/edit]